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WAŻNE 


Musisz to przeczytać: 


Uwagi o instalacji 


1. 


12 


Zawsze dołączaj przewód sieciowy do wtyczki o trzech koń- 
cówkach zgodnie z instrukcją zawartą » części i Kursu 
Podstawowego 

Nigdy nie próbuj dołączać systemu do napięcia sieci innego 
niż 220-240 V, 50 Hz 

Wewnątrz systemu nie ma części obsługiwanych przez użytkowni- 
ka. Nie próbuj dostać się do wnętrza systemu. Zwróć się do 
przeszkolonego personelu serwisowego 

Aby uniknąć zmęczenia oczu, monitor zawsze powinien być 
możliwie oddalony od klawiatury i pracować w odpowiednio 
oświetlonym pomieszczeniu. JASNOŚĆ monitora powinna być 
możliwie najniższa. 

Komputer powinien być ustawiony na wprost monitora, ale 

jak najdalej od niego. Dla zapewnienia maksymalnej pewności 
działania, część komputera zawierająca napęd dysków NIE 
powinna być umieszczona przed monitorem, lecz na prawo of 
niego. Nie nąleży umieszczać komputera w sąsiedztwie źródeł 
zakłóceń elektrycznych 

Zawsze trzymaj napęd dysków i same dyski z dala od pól 
magnetycznych 

Jeżeli używasz systemu o 2 napędach, to przewód łączący drugi 
napęd winien być umieszczony z dala od przewodu sieciowego 
Nie zakrywaj i nie blokuj otworów wentylacyjnych 

Nie przechowuj systemu w Środowisku szczególnie gorącyn, 
zimnym lub o dużej zawartości kurzu 


Uwagi o obsłudze 


(Nie obawiaj się, jeżeli zostaniesz trochę oszołoniony wystę- 


pującym w tej części żargonem technicznym: ważność tych uwag 


stanie się jasna po przeczytaniu tega podręcznika). 


1. 


Nigdy nie włączaj i nie wyłączaj systemu z dyskiem umieszczh- 
nym w napgdzie. Takie działanie zniszczy Twój dysk i dopro- 


wadzi do utraty cennych programów lub danych 


Zawsze wykonuj duplikaty (kopie) dysków zawierających cenne 
programy. Dotyczy to szczególnie dysków tworzących pakiet 
wzorcowych dysków systemowych CP/M, dołączonych do 6128, 
Jeżeli przypadkowo stracisz lub zniszczysz te dyski - to ich 
wymiana może okazać się bardzo kosztowna 

Upewnij się, żeby nigdy nie zapisać przypadkowo dysków syste- 
mowych CP/M. Zgpewnij, żehy otwory zabezpieczające przed 
zapisem były w tych dyskach zawsze otwarte 

Jeżeli używasz systemu o 2 napędach, tzn, zakupiłeś stację 
dysków AMSTRAD FDi, to zawsze włączaj drugi napęd dyskowy 
przed włączeniem komputera 

Nigdy nie dotykaj powierzchni dysku elastycznego wewnątrz 
obudowy ochronnej 

Nigdy nie wyjmuj dysku w czasie, gdy odbywa się na nim zapis 
lub odczyt 

Pamiętaj zawsze, że sformatowanie dysku wymaże jego poprzed- 
nią zawartość 

Wewnętrzny dysk zajmuje mały obszar pamięci, który używany 
był czasami nrzez zawodowych prozyramistów - autorów oprogra- 
mowania na kasetach w modelu AMSTRADT CPC 464. Kasety te nie 
będą działać właściwie na 6126 z dołączonym maznetotonem. 
Jeżeli masz jakiekolwiek wątpltwości dotyczące kompatibilnoś 
ci oprogramowania na kasetach - skontaktuj się z AMSOFT 

w Brentwood (0277) 230222, Pamiętaj jednak, że większość 
podstawowego oproyramowania AMSOFT dostępna jest na dyskach 
dla 6128 

Umowa licencyjna na Twoje dyski systemowe CP/M, (które są 
oznaczone numerem seryjnym w sposób elektroniczny) zezwala 
na używanie ich tylko w pojedynczym systemie komputerowym. 

W szczezńlności oznacza to, że nie wolno Ci przekazywać 
innej osobie dysku CP/M z zakodowanym TWOIM numerem seryjnym 
kopii systemu operacyjnego. 


ROZDZIAŁ 1 
KURS PODSTAWOWY 


Część 1: Połączenie komputera 


Komputer CPC 6123 może być połączony z jednym z nastę- 
pujących urządzeń: 
1. Monitor zielony AMSTRAD GT65 
2. Monitor kolorowy AMSTRAD CTM 664 
3. Modulator/zasilacz AMSTRAD MP2 1 odbiornik telewizji 
kolorowej z pasmem UHP 


Dostosowanie wtyczki sieciowej 


CPC 6128 zasilany jest 2 sieci 220-240 V, 50 Hz. Do 
przewodu sieciowego, wychodzącego z jednego z powyższych urzą- 
dzeń należy dołączyć wtyczkę sieciową. Jeżeli użyta będzie 
wtyczka 13-amperowa (BS 1363), toe bezpiecznik należy zmienić 
na 5-amperowy. Bezpiecznik 13-amperowy wewnątrz wtyczki nie 
powinien być używany. Jeżeli użyta będzie inna wtyczka, trzeba 
ją zaopatrzyć w bezpiecznik 5-amperowy, bądź umieścić go 
w tablicy rozdzielczej obok gniazdek sieciowych 


Ważne 


Przewody w kablu sieciowym są oznaczone kolorami wg nastę 
pującego kodu: 

niebieski - przewód obojętny 

brązowy - przewód aktywny 

Ponieważ kod ten może różnić się od kodu stosowanego 
we wtyczce, należy postąpić w taki sposób: 

Przewód oznaczony kolorem niebieskim musi być podłączony 
do końcówki z literą N lub czarnej, 

Przewód oznaczony kolorem brązowym winien być połączony 
z końcówką z literą L luh czerwonej. 


1) W Wielkiej Brytanii stosuje się wtyczki, w które wbudowany 
jest bezniecznik. Określają to normy Brytyjskie (np. BS 1363- 
British Standard 1363 1 in.). Uwagi te nie mają zastosowania 
w Polsce - przyp. tłum. 


Nie wolno usuwać żadnych śrubek ani próbować otworzyć 
obudowę urządzeń. Zawsze :-Jeży mieć na uwadze ostrzeżenie 
na plakietce umieszczone, „9d spodem CPC 6128 i MP2 oraz 
z tyłu GT 65 1 CTM 664. 


OSTRZEŻENIE: ELEMENTY POD NAPIĘCIEM. NIE USUWAĆ ŻADNYCH ŚRUB 


Połączenie komputera z monitorem 


(jeżeli używaśz CPC 6128 z modulatorem/zasilaczem - przejdź 

do następnego paragrafu). 

1. Upewnij się, że monitor nie jest włączony do sieci 

2. Połącz przewód wychodzący z monitora i zakończony dużą 
wtyczką typu DIN i 6 wyprowadzeniami z gniazdem oznaczonym 
z tyłu komputera napisem MONITOR 

3. Połącz przewód wychodzący z monitora i zakończony małą 
wtyczką (5V DC) z gniazdem z tyłu komputera oznaczonym 5V DC 

4, Połącz przewód wychodzący z komputera i zakończony małą 
wtyczką (12 V DC) z gniazdem z przodu monitora: 


Połączenie komputera z modulatorem/zasilaczem MP2 


MP2 jest urządzeniem, które być może zechcesz nabyć, 
jeżeli używasz CPC 6128 z zielonym monitorem GT 65. MP2 pozwala 
na dołączenie Twojego komputera do domowego odbiornika telewizji 
kolorowej - a co za tym idzie - wykorzystanie pełnych możliwoś— 
ci kolorowej grafiki dostępnej w CPC 6128. 

MP2 powinien być umieszczony po prawej stronie CPC 6128. 
1. Upewnij się, że MP2 nie jest włączony do sieci. 

2. Połącz przewód wychodzący z MP2 1 zakończony dużą wtyczką 
typu DIN o sześciu końcówkach z gniazdem z tyłu komputera 
oznaczonym MONITOR i 

3. Połącz przewód wychodzący z MP2 i zakończony małą wtyczką 
(5V DC) z gniazdem z tyłu komputera oznaczonym 5V DC 

4. Połącz przewód wychodzący z MP2 i zakończony wtyczką ante- 
nową z zniszdkiem oznaczonym AERIAL lub ANTENA w odbior- 
niku TV. 


5. Połącz przewód wychodzący 2 komputera i zakończony małą 
wtyczką (12V DC) z gniazdkiem umiejscowionym z tyłu MP2. 


Włączanie systemu - CPC 6128 1 GT 65/CTM 664 


(Jeżeli używasz CPC 6128 z zasilaczem/muculatorem 
MP2 - przejdź do następnej sekcji tego rozdziału). 

Połączywszy cały System tak, jak to zostało opisane, 
włącz wtyczkę sieciową do gniazdka. Naciśnij teraz przycisk 
POWER po prawej stronie na dole monitora tak, aby przycisk 
był w położeniu "w © i ś n ię te". Kiedy przycisk jast w po- 
łożeniu "w y c 4 śni ę te" - zasilanie jest odłączone. 

Włącz teraz komputer przy pomocy przełącznika na tylnej 
ściance, po prawej stronie. Przełącznik oznaczony jest POWER. 

Czerwona lampka w środku górnej ścianki komputerą powinna 
się rozjaśnić a na ekranie pojawi się napis 


Amgtrad 128K Microcomputer (v3) 
(C) 1985 Amstrad Consumer Electronics ple 
and Locomotive Software Ltd. 
BASIC 1.1 
Ready 


Aby uniknąć zmęczenia oczu należy wyregulować jasność 
ekranu pokrętłem BRIGHTNESS. Jasność winna być odpowiednia dla 
wygodnej pracy a litery nie powinny być zamazane lub zbyt ostre. 

Pokrętło BRIGRTNESS znajduje stę z przodu monitora GT 65 
i na prawej bocznej ściance CTN 664. 

Jeżeli używasz monitora GT 65 może zajść potrzeba wyregu- 
lowania kontrastu pokrętłem CONTRAST i synchronizacji pionowej 
pokrętłem Vertical HOLD. Pokrętła te znajdują się na dole, ua 
przedniej ściance. 

Kontrast - pokrętłem CONTRAST - powinien być zmniejszony 
do możliwego minimua. 

Monitor GT 65 winien być wyregulowany pokrętłem Vertical 
HOLD (oznaczonym V-HOLD) tak, aby obraz na ekranie był stabil- 
ny i nie występowało "pływanie" lub "drżenie" obrazu. 


Fłączenie systemu - CPC 6528 1 HP2 


Po połyczeniu systemu w opisiny uprzednie sposób, należy 
włączyć wtyczkę aieciową do gniazda «ssilania. 

Fależy teraz włączyć komputer przełącznikiem POWER znaj- 
dujycym się na tylnej ściance po prawaj stronie. 

Rozjaśni się lampka koloru czerwonego w śrocku górnej 
Ścianki komputerz i należy teraz dostroić odbiornik TY co * 
częstotliwości sygnału zonerowaneso przez komputer, 

Jeżeli Trój odbiornik TV ma klawisze wyvoru kanału, to 
należy wybrać wolny lub nieużywany kaneł. Następnie, przy po- 
wocy pokrętła płynnej regulacji należy destroić telewizor do 
muiej więcej 36 kanału - tak, aby na e.-ranie talewizera ukazał 
mię stabilny i wyraźny napis 


Amstrad 126€X Microcomputer (v5) 
C 1985 Amatrad Consurer Electronics ple 
and Locomotivs Software Ltd 
BASIC 1.1 
Ready 


Napis na ekranie będzie złotożółty na granstowym tle, 

Jeżeli Twój telewizor ma bębnowy przełącznik kanałów 
to należy go obracać aż do uzyskanis stabilnego obrazu. 
(Znów będzie to w okolicach kanału 36). 


Inne połączenia 


Jeżeli pragniemy dołączyć inne urządzenia zewnętrzne, 
czyli: 
- Joystick'1 
- Magnetofon 
- Drukarkę 
- Drugi napęd dysków 
- Zewnętrzny wzmacniacz/głośniki 
- Urządzenia rozszerzające 
to szczegóły ich podłączenia znajdują się w części 2 rozdziału 
"Kurs podstawony! 


Na koniec, upewnij się, że zastosowałeś się do uwag 
podanych na początku tego podręcznika w części "WAŻNE". 

Uwagi o instalacji 1,2,4,5,56,7,8 

Uwagi o obsłudze 1 


Część 2: Dołączanie urządzeń zewnętrznych 


Ta część rozdziału opisuje, w jaki sposób należy dołączać 
do CPC 6128 różne urządzenia zewnętrzne i przystawki. Szczegóły 
dotyczące ich użycia będą podane w odpowiednich sekcjach tego 
podręcznika. 


Joystick 


Jeżeli używasz gier, które mają możliwość współpracy 
z joystickiem, hyć może zechcesz nahyć MASOFT joystick 
model JY2 - jedno z urządzeń dołączanych do CPC 6128. 
Wtyczkę, którą zakończony jest kabel wychodzący z JY2 
należy wetknąć do gniazda w komputerze nznaczonego JOYSTICK. 
CPC 6128 może współpracować z dwoma joystickami; drugi joystick 
należy połączyć z odpowiednim gniazdem umieszczonym w obuco- 
wie pierwszego. 
Również joystick typu AMSOFT JY1 może bvć nołączony 
2 CPC 6128. 
Dalsze informacje dotyczące joysticków znaleźć można 
w następnych rozdziałach. 


Magnetofon 


Zamiast dysku, do zapisywania i odtwarzania prosramów 
można użyć magnetofonu. Komendy, które powodują załadowanie 
orocramów na taśmę lub dysk oraz przepisujące nrovramy z taśmy 
lub dysku do namięci zostaną opisane dalej. 

w celu dołączenia do CPC 6128 macenetofonu kasetowego niee 
zbędny będzie przewód oznaczony AMSOFT CLi, lub jakikolwiek 


innv tynowy przewód maznetofonowy. 


Koniec przewodu z większą, S-bolcową wtyczką należy połą- 
czyć z gniazdem komputera oznaczonym TAPE. 

Następnie należy połączyć -— końcówkę niebieskiego przewodu 
z gniazdkiem magnetofonu oznaczonym REMOTE lub REM; końcówkę 
czerwonego przewodu z gniazdkiem magnetofonu oznaczonym MIC, 
COMPUTER IN lub INPUT; końcówkę białego przewodu z gniazdkiem 
magnetofonu oznaczonym BAR, COMPUTER OUT lub OUTPUT. 

Należy pamiętać, że prawidłowe przepisanie danych między 
komputerem 1 magnetofonem zależy w sposób istotny od właści- 
wego ustawienia pokręteł LEVEL lub VOLUME magnetofonu. Jeżeli 
zapisy bądź odczyty programów nie udają się - należy ekspery- 
mentalnie dobrać optymalne ustawienie nastaw. 


Drukarka 


CPC 6128 może współpracować z dowolną drukarką o łączu 
równoległym typu CENTRONICS. Jeżeli używać chcemy drukarki 
AMSTRAD DMP1, należy po prostu użyć przewodu dosterczenego 
wraz z drukarką. 

Jeżeli używana ma byc inna drukarka o łączu CENTRONICS, 
to potrzebny będzie przewód łączący MASOFT PL1, 

Koniec przewodu zaopatrzony w duże złącze krawędziowe 
należy połączyć z gniazdem oznaczonym w komputerze napisem 
PRNTER (z tyłu komputera). 

Drugi koniec przewodu, zakończony złączem typu używanego 
przez drukarki z interfejsem CENTRONICS, należy połączyć 
z gniazdem drukarki, Jeżeli gniazdo drukarki wyposażone jest 
w zatrzaski zabezpieczające przed rozłączeniem się kabla - moż- 
na je założyć na wtyczkę kabla, w wycięcia przeznaczone do 
tego celu. 

Szczegóły działania drukarki znajdują się w dalszej części 
podręcznika, 


Drugi napęd dysków (AMSTRAD FD1) 


Urządzenie AMSTRAD FD1i może być dołączone do komputera 
jako drugi napęd dysków. Przewaga posiadania 2 napędów w sy- 
stemie jest szczególnie oczywista dla programistów pracujących 


z systemem CP/M; wiele programów jest tak zorganizowanych, że 
zbiory biblioteczne winny się znajdować na dysku włożonym do 
jednego napędu, a robocze zbiory danych zapisywane są na drugim 
dysku. 

Kiedy FD1 jest już połączony z 6128 WPIFRW włącz docatkowy 
napęd FD1 - przy nomocy włącznika z tyłu urzaczenia - a NASTĘPNIE 
komputer przy pomocy włącznika z tyłu komputera. W FD1 winny 
się zapalić oha wskaźniki - czerwony i zielony. Wtedy to cały 
2-dyskowy System jest gotowy do pracy. 

Szczegóły pracy z systemem 2-dyskowyr: znajdują się w dal- 
szej części podręcznika. 


Todatkowe wzmacniacze i głośniki 


System 6128 może być nodłączony do codatkowego nzmacniacza 
akustycznego stereo i kolumn głośnikowyci. Pozwoli to na wyko- 
rzystanie pełnych możliwości dźwiękowych 3? kanałów komputera, 

Przewód łączący wzmacniacz z komputerem nowinien być za- 
kończony 3,5 mm wtyczką typu "jack"-stereo. Wtyczkę tę należy 
połączyć z gniazdem oznaczonym na komputerze "STEREO". 

Wyprowaczenia są jak następuje: 
- zakończenie wtyczki - kanał lewy 
- Środkowy pierścień - kaneł prawy 
- nasada - mosa 

6128 zseneruje syzneł o stałym noziomie, zatem należy wy- 
korzystywać pokrętła wzmacniacza, Iotyczy to głośności, barwy 
dźwięku i balensu. 

Słuchawki wysokoomowe mocą również współpracować z kompu- 
terem, jednakże natężenie dźwięku nie będzie regulowane przez 
pokrętło VOLUME w komputerze. Słuchewki niskoomowe, takie, 
jakie zvykle stosuje się w sprzęcie HI-FI nie mogą bezpośrednio 
współpracovać z systemem. 

Szczecóły cotyczące sterowenia przepływem dźwięków przez 
poszczególne kanały onisane hędą w dalszej części podręcznika. 


Inne urządzenie 


Inne urządzenia jak:interfejsy szeregowe, modemy, pióra 
świetlne, dodatkowe pamięci ROM itd, mogą być dołączone do 6128 
poprzez gniazdo oznaczone FXPANSION, a umieszczone z tyłu 
komputera. 

W ten sposób może być również dołączony syntezator mowy 
i wzmacniacz AMSOFT SSA2. 

Szczegóły dołączania urządzeń poprzez gniazdoEXPANSION 
będą omówione w rozdziale "Trochę użytecznych informacji". 

Na koniec upewnij się, czy zastosowałeś się do wskazań 
zawartych na początku podręcznika, w części MYAŻNE": 

Uwagi o instalacji 6,7 

Uwagi o obsłudze 4,8 


Część 3: O dyskach 


Komputer AMSTRAD CPC 6128 wykorzystuje 3 calowe dyski 
typu "compact", Zdecydowanie polecamy używanie wyłącznie 
dysków AMSOFT CF2, dających gwarancję pewnśj pracy. Jednakże 
można również używać dysków wyprodukowanych przez inne wiodące 
firmy. 


Wkładanie dysku 


Każda ze stron dysku może być używana niezależnie. Dysk 
należy wkładać nalepką na zewnątrz; ta strona dysku, którą 
chcemy wykorzystać powinna być odwrócona ku górze. 


Zabezpieczenie przed zapisem 


Z lewej strony każdego dysku znajduje się strzałka wskazu- 
jąca na mały, zasłaniany otwór. Określany on jest jako "otwór 
zabezpieczający przed zapisem", pozwalający na zabezpieczenie 
przed wymazaniem lub zniszczeniem danych. 


Jeżeli otwór ten jest zasłonięty - dane mogą być zanisane 
na dysk przez komputer. Jeżeli jest on odkryty - dysk nie zezwa- 
la na dokonywanie na nim zapisu; pozwala to na un$kniycie przy 
padkowego zniszczenia cennych programów, 

Różni wytwórcy dysków stosują różne mechanizmy zasłaniania 
otworu, Czynność odsłaniania otworu w dysku AMSOFT CF2 polega na: 


- przesunięciu małej zasłonki umieszczonej w lewym rogu dysku, 
Aby zasłonić otwór należy: 
- przesunąć zasłonkę na jej pierwotne miejsce. 

Niektóre inne dyski mają mały plastikowy bloczek umiesz- 
czony w szczelinie po lewej stronie dysku. 


W celu odsłonięcia otworu należy ten bloczek przesunąć 
w stronę środka dysku, używając długopisu lub innego cienkiego 
przedmiotu. 

Zwróćmy uwagę, że niezależnie od użytego sposobu otwiera- 
nia 1 zamykania, otwarcie otworu zawsze zabezpiecza przed 
zapisem, 


WAŻNE 
Dopilnuj, aby otwory zabezpieczające w dyskach stanowią 
cych pakiet systemowy CP/M były zawsze otwarte. 


Kiedy dysk jest już włożony 


Z przodu mechanizmu napędu dysków w komputerze widoczne SĄ: 
czerwona lampka i przycisk do wyjmowania dysków. 


Lampka 


Lampka pokazuje, że na dysku odhywa się operacja zapisu 
bądź odczytu, 

Jeżeli podłączony jest drugi napęd dyskowy, to lampka 
tego napędu będzie się stale świecić. Rędzie ona przyrasać 
w czasie, gdy komputer będzie używać głównego napędu. 
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Przycisk 


Naciśnięcie tego przycisku pozwala na wyjęcie dysku 
z napędu, 

Na koniec należy się upewnić, czy zastosowano się do 
następujących wskazówek zawartych na początku tego rozdziału, 
w części zatytułowanej "WAŻNE": 

Uwagi o obsłudze 1,3,4,5,6. 


Część 4: Zaczynamy ... 


Zanim zaczniemy ładować programy do pamięci lub zapisywać 
je na dysk, zapoznajmy się z niektórymi klawiszami komputera, 
Ci spośród Państwa, którzy mają już te doświadczenia za sobą, 
mogą ominąć niniejszy rozdział. 

Z już włączonym do sieci komputerem i ekranem, na którym 
wyświełlony jest nagłówek przystąpimy do poznawania funkcji 
różnych klawiszy. 

Klawisze kursora ł | — — (po prawej stronie na dole kla- 
wiatury) zmieniają pozycje kursora (czyli małego kwadraciku) 
na ekranie. 

Naciśnij każdy z tych klawiszy a zobaczysz, jak kursor 
przesuwa się po ekranie. 

Klawisz [RETURN] wprowadza napisaną przez Ciebie infor- 
mację do komputera. Po każdym naciśnięciu tego klawisza nastę- 
puje przejście do nowej linii na ekranie. Każde polecenie wpro- 
wadzane do komputera powinno kończyć się naciśnięciem klawisza 
[RETURN]. 

Od tej chrili, poprzez symbol [RETURN] oznaczać będziemy 
"naciśnij klawisz RETURN po każdej komendzie lub linii 
programu. 

W czasie normalnej pracy klawisz [ENTER] 

działa tak samo jak [RETURN] A może być używany zamien- 
nie. Jednakże należy pamiętać, że podobnie jak klawisze części 
numerycznej, klawisz ten może być przedefiniowany i nabrać in- 
nego znaczenia. Powrócinydo tej sprawy później. 

Klawisz [DEL] - służy do ka- 
sowania znaku na lewo od kursora na ekranie. 
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Napiaz na ekranie a b ce d a przekonasz się, że lite- 
ra d. znajduje się na lewo od kursora, Jeżeli dojdziesz do 
wniosku, że litera d jest zbędna, to naciśnij klawisz [DEL] 
a zniknie ona z ekranu. Jeżeli dalej będziesz naciskał [DEL], 
to zniknie cały napis. 

Są dwa klawisze [SRIFT], 

Jeżeli przyciśniesz którykolwiek z nich równocześnie z klawi- 
szem litery/cyfry to na ekranie pojawi się duża litera lub 
symbol napisany na górze klawisza, 

Naciśnij klawiez e, a następnie naciśnij klawisz [SHIFT] 
1 trzymając go naciśnij klawisz e raz jeszcze. Na ekranie 
pojawi się 


eE 
Wprowadź teraz kilka spacji, Używając klawiszy z cyframi (naj- 
wyższy rząd klawiszy) napisz na ekranie 2 a następnie powtórnie 
naciśnij klawisz 2 jednocześnie trzymając klawisz [SHIFT]. 

Na ekranie zobaczysz 

2" 

Możesz przekonać się, co dzieje się na ekranie gdy na- 
ciskasz różne klawisze jednocześnie z SHIFT . Prosimy przepro- 
wadzić różne próby naciskając klawisze raz z - a powtórnie 
bez klawisza [SHIFT]. 

Klawisz [CAPS LOCK] ma podobną 
funkcję do [SHIFT] z tym, że należy go nacisnąć tylko raz, Od 
tej chwili wszystkie litery pojawią się jako litery drukowane 
(duże, wersaliki) pomimo, że klawisze z cyframi nie zmienią 
swojego znaczenia, 

Woiśnij [CAPS LOCK] 1 napisz 


abcdef 123456 
a na ekranie zobaczysz 
ABCDEF 123456 


Zauważysz, że klawisze z cyframi nie spowodowały wyprowa— 
dzenia na ekran symboli. Jeżeli pragniesz wprowadzić symbole 
w czasie, zdy działa klawisz [caPs Lock] - naciśnij klawisz 
[SHIFT]. Napisz, trzymając jednocześnie klawisz SHIFT : 


abcdef123456 
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Na ekranie zobaczysz 
ABCDEF! "4$4% 


Jeżeli chcesz powrócić do pisania małymi literami to po 
prostu powtórnie naciśnij klawisz [CAPS LOCK]. 

Jeżeli chcesz pisać dużymi literami i wprowadzać symbole 
bez konieczności ciągłego naciskania klawisza [SHIFT] to można 
to uzyskać poprzez wciśnięcie klawisza [CONTROL ] i [CAPS LOCK] 
jednocześnie wprowadza to tryb 
pracy "SHIFT LOCK". Wpisz w ekran 


abcdef123456 
Na ekranie zobaczysz 
ABCDEF! "4 $% 


Prosimy zwrócić uwagę, że cyfry można wpisywać w dalszym 
ciągu używając klawiszy z części numerycznej klawiatury 
(rg do £9). 

Przytrzymanie klawisza [CONTROL ] i jednokrotne naciśnię- 
cie [CAPS LOCK] przywróci poprzedni tryb pracy klawiatury,(tj. 
alho tylko małe albo tylko duże litery). Jeżeli powróciłeś do 
trybu "tylko duże litery" - to po prostu naciśnij jeden raz 
klawisz [CAPS LOCK] a przejdziesz do pisania małymi literami. 

Klawisz [CLR] służy do 
zamazywania znaku pod kursorem. 

Wprowadź ABCDFFGH. Kursor umiejscowiony będzie na prawo 
od ostatniej wpisanej litery (H). Naciśnij klawisz <— cztery 
razy, Kursor przesunie się o cztery pozycje w lewo i będzie 
nałożony na literę E. 

Zauważ, że litera E widoczna jest pod kursorem. Naciśnij 
ternz klawisz [CLR] jeden raz a zobaczysz, że litera E zniknie, 
a litery FGH przesuną się o jedną pozycję w lewo, z literą F 
ustowioną pod kursorem. Naciśnij teraz [CLR] i przytrzymaj 
klawisz. Zobaczysz, jak wymazywana jest litera F, a za nią 
Gi1F. 

Klawisz [ESC] służy do przer- 
vania (ang. FSCape) działania realizowanej przez komputer 
funkcji. Jednokrotne naciśnięcie [Esc] powoduje zawieszenie 
wykonywania programu. Może on być wznowiony po naciśnięciu in- 
nego klawisza. 
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Dwukrotne nasiśnięcie klawisza [ESC] spewoduj a permanentne 
przerwanie działania programu, Konputer przyjmować zacznie 
wtedy informacje w trybie pisania programów. 

Kiedy już wpisywane litery osiągną prawy skraj ekranu, 
co ma miejsce po wprowadzeniu 40 znaków, to następny symbol 
pojawi się automatycznie przy lewym brzegu w następnej linijce, 
Oznacza to, że NIE należy naciskać [RETURN] , co móże wydać 
się konieczne tyn z Państwa, którzy przyzwyczajeni sę do maszyn 
do pisania. 

Funkcję taką komputer wykonuje automatycznie. Na wprowa» 
dzony nadmiarowo [RETURN] odpowie komunikatem o błędzie 
— albo natychmiast - albo w czasie wykonywania programu, Naj- 
częściej będzie to komunikat: 

Synteax error 


Syntax error /Błąd składni/ 

Jeżeli na ekranie pojawi się komunikat: Synatax error, to 
oznacza to, że komputer sygnalizuje, iż nie rozumie wprowadzo- 
nego polecenia. 

Dla przykładu napisz 

printt [RETURN] 
Na ekranie zobaczysz napis 
Syntax error 
Stało się tak, bowiem komputer nie zrozumiał instrukcji: 


printt 
Jeżeli błędne polecenie wpisane zostanie w linijkę programu, 
tak jak np. 


18 printt "abc" [RETURN] 


to komunikat Syntax error pojawi się dopiero w czasie wyko- 
nywania programu. 
wpisz 
run [RETURN] 


/Polecenie to nakazuje wykonanie dopiero co wprowadzonego 
do pamięci programu/., 
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Na ekranie zobaczysz: 
Syntax error in 16 
1 printt "abc" 


Komputer w ten sposób informuje, że w linii 19 programu 
wystąpirbłąd składni oraz wyświetla błędną linię z kursorem 
ustawionym na pierwszy znak tej linii. 

Naciśnij klawisz — tyle razy, aby znalazł się on na 1li- 
terze t w słowie printt. Następnie naciśnij klawisz [CLR] 

i tym samym usuń zbędną literę. Teraz naciśnij klawisz [RETURN] 
sygnaiizując koniec poprawiania. 

Napisz: 

run [RETURN] 
a zobaczysz, że komputer zaakceptował polecenie i wydrukował 
(ang. "print"/ 

abe 

Na koniec upewnij się, że zastosowałeś się do ostrzeżeń 
podanych na początku książki, w sekcji zatytułowanej "WAŻNE": 

Uwagi o instalacji 4,5 

Uwagi o obsłudze 1 


Część 5: Ładowanie programów i gier 


Witamy tych, którzy przeskoczyli tutaj z początku 
poprzedniej części! 

Aby szybko przekonać się o prędkości, z jaką ładowane 
jest do pamięci oprogramowanie rezydujące na dysku włącz System 
i wsuń do napędu 4 stronę pakietu dysków systemowych CP/M 
(tj. stronę oznaczoną 4 do góry). 

Napisz 

run"rointime „dem" [RETuRN] 

Po kilku sekundach program będzie już załadowany do pamięci, 
Odpowiedz na postawione na ekranie pytanie o to, czy używasz 
zielonego monitora (Naciśnij Y jeżeli tak, N jeżeli nie) 

a zobaczysz na ekranie ciągłą demonstrację gry "Roland in time". 
Być może skłoni Cię ona nawet do zakupienia kopii tej gry! 

Kiedy już skończysz oglądanie tego pokazu, to możesz "uciec" 

z programu przez przyciśnięcie klawisza (Esc] krzy jednoczesnym 
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woiskaniu klawiszy [CONTROL] 1 [SFIFT]. Daje to efekt całkowi- 
tego wyzerorania komputera i może być używane, gdy prazniesz 
rozpocząć pracę ze stanu jałowego. (Nie ma potrzeby wyjmowania 
dysku z nąpędu resetując-zerując komputer w ten sposób). 
Jeżeli program nie załaduje się, to w celu dowiedzenia 
się przyczyny błędu należy przestudiować informację o błędzie 
ukazującą się na ekranie: 
Driva A: disco missinz 
Retry, Ignore or Cancel? 
... Oznecza, że albo niewłaściwie wprowadziłeś dysk do napędu, 
albo - o jie masz system z 2 napędami - włożyłeś go do napędu B 
ROINTIME.LFM not found 
... oznacza, że albo włożyłeś niewłaściwy dysk,( lub złą jego 
stronę), albo niezbyt precyzyjnie napisałeś nazwę programu, 
ROTNTIME „DEM 
Bad command 
.. oznacza, że prawdopodobnie śle napisałeś ROINTIME.DEFM 
wprowadzając do nazwy zbędną snację lub znak przestsnkowy. 
Type mismatch 
oznacza, że opuściłeś znak cudzysłowu " 
Syntax error 
... oznacza, że Źle napisałeś słowo run 
Drive A: read fail 
Retry, Ignore or cancel 
oznacza, że komputerowi nie udało się odczytać danych 
2 Twojego dysku. Sprawdź, czy włożyłeś właściwy dysk i naciś- 
nij R ("Ponów próbę" - retry). Komunikat powyższy ukaże się, 
jeżeli kiedykolwiek zdarzyło Ci się popsuć dysk wyłączając 
komputer z dyskiem włożonym do napędu, 
Kiedy już dowiesz się, jak wykonywać konie dysków - zawsze 
zabezpieczaj cenne nrogramy przez wykonanie ich kopii. Dotyczy 
to szczególnie wzorcowego pakietu dysków systemowych CP/M. 


zadowanie oprogramowania AMSOFT i program "KELCOME" 


Wyostrzywszy sobie apetyt na milszą stronę używania kompu- 
tera, załadujmy grę. 

Wprowadź swój dysk z nrośgramem do napędu i napisz 

run "disc" [RETURN] 
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Po kilku sekundach Twoja gra będzie załadowana i gotowa 
do zabawy. 

Spróbuj napisać: run "disc", kiedy w nupędzie jest 4 strona 
pakietu dysków systemowych CP/M, a zobaczysz i usłyszysz nie- 
przerwaną demonstrację programu "Welcome" (Witajcie). 

Kiedy już skończysz oglądanie programu, wyzeruj komputer 
używając klawiszy [CONTROL] [SHIFT] i [ESC]. 

Powyższa instrukcja (run "dise") załaduje większość pro- 
gramów firmy AMSOFT; możesz jednak napotkać przypadek, że bę- 
dziesz musiał napisać coś dodatkowo, We wszystkich jednak 
przypadkach instrukcja ładowania programu znajdować się będzie 
na obwolucie dysku. Instrukcji tej należy pilnie przestrzegać, 

Na zakończenie upewnij się, że zastosowałeś się do 
ostrzeżeń podanych na początku tego podręcznika w rozdziale 
"WAŻNE" 

Uwagi o instalacji 6 

Uwagi o obsłudze 1,5,6 


Część 6: Policzmy trochę ... 


Jak dotąd, wiemy co musimy zrobić z komputerem i czego 
nam nie wolno robić; wiemy jak go połączyć i jak dołączyć 
urządzenia zewnętrzne. Wiemy, jak działają niektóre klawisze 
komputera i jak załadować program. Teraz przyjrzymy się niektó- 
rym instrukcjome 

Tak jak Ty czy ja - komputer zrozumieć może tylko polece- 
nia w języku który zna; język ten nazywa się BASIC (skrót od 
Beginnerś* All-purpose Symbolic Instruction Code). Słowa 
w słowniku języka BASIC zwane są "słowami kluczowymi" i każde 
z nich nakazuje komputerowi wykonanie specyficznej funkcji. 
Każdy język musi trzymać się zasad gramatyki - i BASIC nie 
jest pod tym względem wyjątkiem. Tutaj w odniesieniu do grama- 
tyki używa się określenia "składnia" i komputer będzie na tyle 
miły, że zawsze nie omieszka poinformować Cię, jeżeli zrobiłeś 
"Błąd składni" (Syntax error). 
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Wprowadzenie do słów kluczowych języka BASIC 


W rozdziale zatytułowanym "Kompletna lista ..,”" znajdziesz 
opis wszystkich słów kluczowych języka AMSTRAI: BASIC. W tej 
części wprowadzimy niektóre najczęściej używane słowa kluczowe. 

CLS 


Ahy wyzerować (oczyścić) ekran napisz: 
CLS (RETURN) 


Zauważysz, że ekran staje się pusty i tylko w mórnym lewym 
rogu zostaje napis Ready wraz z kursorem. 

Zwróć uwagę, że do wprowadzania słów kluczowych możesz 
używać zarówno dużych jak i małych liter, 

PRINT 


Jest używane, mdy chcemy w prorramie wydrukować 
literę, słowo lub znak. Wprowadź następującą linijkę polecenia: 
print "czesc" [tETurn] 
Na ekranie zohaczysz 
CZESC 


Cudzysłów " " używany jest do zakomunikowania komputerowi, 
co należy wydrukować. 

Czesc pojawi się na ekranie zaraz no neciśnięciu klawisza 
[RETURN]. Napisz 

cłs [RETURN ] 
aby oczyścić ekran 

RUN 


Powyższy przykład pokazywał jedną linijkę instrukcji. 
Jednakże, zaraz po naciśnięciu klawisza (| RETURN] instrukcja 
została wykonana i natychniast zapomnian: . Możliwe jest wnisa- 
nie do komputera ciągu instrukcji po to, aby zostały vykonene 
w olnowiedniej kolejności. Osiąs:: się to noprzez nanisanie 
"programu", Instrukcje języke BASIC uży ane w progrzmich są 
takie same jek te, które poznaliśmy z tym, że przeć każdą 
z nich wstanie się liczbę. Jeżeli « orozrzmie jest więcej niż 
jedna linia, to licztry te (numery instrukcji) informują kompu- 
ter o kolejności ich wykonyrania (ane. "run"). Po naciśnięciu 
[RETULN] linijka tak: zapamiętywane jest w pamięci aż do 
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chrili uruchomienia programu. Napisz teraz: 

19 print "czesc" [RETURN] 

Zwróć uwagę, że po naciśnięciu RETURN "czesc" nie 
zostało napisane na ekranie, Aby uruchomić ten program należy 
użyć słowa run. Teraz napisz 

run [RETURN ] 

a zobaczysz słowo czesc na ekranie. 

Zapamiętaj, że zamiast ciągle pisać słowo print możesz 
użyć zamiast niego znaku zapytania; dla przykładu 

19 ? "czesc" [RETURN] 


LIST 

Po wpisaniu programu do pamięci można sprawdzić co na- 
prawdę zostało wpisane przez "wylistowanie" programu, Napisz: 

list [RETURN] 

Na ekranie zobaczysz: 

19 PRINT "czesc" 
tj. program zepamiętany w pamięci, 

Zwróć uwagę, że słowo PRINT jest teraz napisane dużymi 
literami, Oznacza to, że BASIC zaakceptował słowo PRINT jako 
znane sobie słowo kluczowe. 

Napisz: ©ls aby oczyścić ekran. Zwróć uwagę, że pomimo, 
1ż ekran po naciśnięciu [RETURN] zostaje wyzerowany, to Twój 
program nie będzie wymazany z pamięci. 

GOTO 


Słowo GOTO mówi komputerowi aby przejść z jednej linii 
do innej w celu albo ominięcia pewnej ilości linii, albo stwo- 
rzenia pętli. Napisz: 

19 print "czesc" [RETURN] 

26 goto 19 [RETURN] 
Teraz napisz 

run [RETURN] 
... a zobaczysz słowo "czesc" wypisywane nieprzerwanie jedno 
pod drugim po lewej stronie ekranu, Dzieje się tak dlatego, 
że linia 29 nakazuje przejść do linii 19 i wykonać opisane tam 
działanie. 

Aby wstrzymać działanie tego programu — naciśnij jeden 
raz klawisz [ESC]. Aby wznowić program - nalęży nacisnąć dowoiny 
inny klawisz. 
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Aby przerwać działanie programu i móc wpisać inne nole- 
cenia naciśnij dwukrotnie klawisz [ESC]. 

Teraz napisz 

cls [RETURN] 
... aby wyczyścić ekran. 

Jeżeli chcesz zobaczyć wyraz czesc wypisywany ciągle 
w każdej linii tak, że pokryje cały ekran to napisz powyższy 
program dodając jednak po cudzysłowiu średnik (;). 

Napisz 

19 print "czesc"; [RETURN] 

20 goto 1% [RETURN] 

run [RETURN] 


Średnik informuje komputer, że następna grupa znaków ma 
być pisana bezpośrednio za poprzednią (o ile tylko ta nowa 
grupa nie jest zbyt długa aby zmieścić się w tej samej linii). 

Przerwij działanie programu naciskając dwa razy [Esc]. 
Napisz powtórnie linię 10, tym razem jednak użyj przecinka (,) 
zamiast średnika (;). 

19 print "czesc", [RETURN] 

run [RETURN] 


Zobaczysz, że przecinek (,) poinstruował komputer żeby 
następną grupę znaków napisać o 13 kolumn dalej od pierwszej 
grupy. Jest to pomocne przy wyprowadzaniu informacji w osobnych 
kolumnach. Jednakże, jeżeli grupa znaków przekracza 12, to 
następna grupa przesunięta będzie o następne 13 pozycji po to, 
aby zawsze utrzymać spację między kolumnami. 

Liczba 13 (knlumm) może być zmieniona poleceniem ZONE 
opisanym w dalszej części tego podręcznika. 

I znów, aby przerwać działanie programu naciśnij dwa razy 
[Esc]. Aby całkowicie oczyścić pamięć komputera przytrzymaj 
klawisze .[CONTROL ] i [SHIFT] i naciśnij [Escj. Komputer zostanie 
wyzerowany. 

INPUT 


Ta komenda używana jest, aby poinformować komputer, że 
winien poczekać na wprowadzenie informacji; na przykład odpo- 
wiedzi na pytanie. i 


20 


Wprowadź: 
19 input "ile masz lat"; wiek [RETURN] 
20 print "nie wyglądasz na";wiek; "lat" [RErunn] 
run [RETURN] 
Na ekranie zobaczysz 
ile masz lat? 


Teraz wprowadź swój wiek i naciśnij [RETURN]. Jeżeli twój 
wiek wynosił 18, na ekranie zobaczysz 
nie wyglądasz na 18 lat 


Ten przykład pokazał użycie instrukcji input i zmiennej 
liczbowej, Słowo wiek zostało wprowadzone do pamięci na końcu 
linii 19 tak, że odtąd komputer łączy słowo wiek z liczbą 
wprowaczoną przez ciebie i napisze tę liczbę w miejscu słowa 
wiek w linii 29. Jakkolwiek użyliśmy nazwy wiek do nazwania 
zmiennej, to mogła to być dowolna litera, na przykład b. 

Wyzeruj komputer aby wyczyścić pamięć. 

(klawisze [CONTROL] [SHIFT] i [ESC]). Jeżeli chciałeś wprowadzić 
jakieś litery (litery lub litery i cyfry), to na końcu nazwy 
zmiennej należało umieścić znak dolara ($). Ten typ zmiennych 
określany jest jako "zmienne łańcuchowe". 

Wpisz następujący program. (Zwróć uwagę, że w linii 29 
należy umieścić spację po literze c w czesc 1 przed literą 
m w mam). 

10 input "jak masz na imie*; imie$ [RETURN] 

20 print "czesc "; inie$; * mam na imie Ronald * [RETURN] 

run [RETURN] 

Na ekranie zobaczysz 
jak masz na imie? 
Napisz je, a następnie naciśnij [RETURN] . 
Jeżeli imię, które wprowadziłeś brzmiało Fred to na ekranie 
zobaczysz 

czesc Fred mam na imie Ronald 

Jakkolwiek na nazwę zmiennej łańcuchowej wybraliśmy imie$, 
to równie dohrze mogła to być litera, dla przykładu a$. Połączy- 
my teraz dwa powyższe przykłady w jeden program. 

Wyzeruj komputer naciskając [CONTROL] [SHIFT] 1 [Fsc]. 
Wpisz co następuje: 


21 


5 ols [RETURN] 

19 input "jak masz na imie"; a$ [RETURN] 

29 input "ile masz lat";b [RETURN] 

39 print "musze powiedziec";a$; "że nie wygladasz na";b;"lat" 
[RETURN] 


run [RETURN] 


W tym progremie użyliśmy 2 zmiennych; aż dla imienia 
1 b dla wieku, Na ekranie zobaczysz: 

jak masz na imie? 
Wprowadź teraz swoje imię (np. Fred) i naciśnij [RETURN] 
Zostaniesz teraz zapytany: 

ile masz lat? 
Napisz swój wiek (np. 18) i naciśnij [RETURN]. Jeżeli masz 
na imię Pred i 18 lat to na ekranie zobaczysz: 

j musze powiedzieć Fred że nie wygladasz na 18 lat 


Poprawianie programu 


Jeżeli którakolwiek z linii programu została wpisana 
z błędami - co zaowocowało pojawieniem się napisu Syntax error 
lub innego komunikatu o błędzie - to istnieje możliwość popra- 
wienia tej linii zamiast wpisywania jej od początku. 

Aby to pokazać, wpiszmy poprzedni prozram z błędami: 


5 elss [RETURN] 

10 input "jak mosz na imie";a$ [RETURN] 

20 input "ile masz lat";b (RETURN] 

30 print "musze powiedzieć";a$; "że nie wygladasz na";b; 
"lat" (RETURN) 


W programie są 3 błędy: 
W linii 5 napisaliśmy Cclss zamiast cls 
W linii 10 napisaliśmy mas zamiast masz 
W linii 30 zapomnieliśmy o spacji między powiedziec a" 


Są trzy metody poprawiania propranu. 
Pierwszy - to po prostu przepisać całą linijkę. Kiedy linia 
jest napisana od nowa i wprowadzona, to zastępuje ona w pamięci 
poprzednią linię o tym samym numerze. 


Drugi - to poprawianie przy pomocy kursora edycyjneko. 
rzeci - to poprarianie kursorem kopiującym. 


Pooprawianie kursorem edycyjnym 


= 


Aby poprawić błąd w linii 5 nanisz: 


edit 5 (RETURN) 

Linia 5% pojawi się pod linią 30 z kursorem nałożonym 
na literę © w clss. 

Aby usunąć zbędną literę s naciskr; klawisz -— aż 
kursor znajrzie się nad ostatnią literą s 1 naciśnij kla- 
wisz [CLR]. Zobaczysz, że s zriknie. 

Naciśnij teraz (RETURN) a linia 5 zostanie poprawiona 
w pamięci. Napisz 


list [RETURN] 
aby sprawdzić, że linia 5 jest już poprawiona. 

Komenda AUTO, opisana «w dalszej części podręcznika, może 
być użyta do ooprawiania pewnej ilości kolejnych linii w sposób 
podobny do metody opisanej w Poprawianiu kursorem kopiującym. 


Poprawianie kursorem koniującym 


Kursor kopiujący jest jeszcze jednym kursorem (obok tego, 
który jest już na ekranie), który pojawia się, kiedy przyciś- 
niesz dowolny klawisz kursora jednocześnie z klawiszem SHIFT 
Oddziela się on wtedy od głiwnego kursora i może być niezależ- 
nie przesuwany po ekranie, 

Aby poprawić hłędy w liniach 10 i 38 naciśnij klawisz 
[SHIFT] a następnie klawisz ł aż do momentu, kiedy kursor ko- 
piujący znajdzie się na samym noczątku linii 10. Zauważysz, 
że normalny kursor nie przesunął się, tak więc na ekranie znaj- 
dują się dwa kursory. Naciśnij teraz klawisz [coPvj tyle razy, 
żeby kursor kopiujący znalazł się nad spacją pomiędzy s 1 na. 
Zauważysz, że linia 10 jest przepisywana w ostatniej linii 
1 zwykły kursor przesuwa się równolegle z kursorem kopiującyu. 
Teraz naciśnij literę z. Pojawi się ons tylko w dolnej linii. 

Główny kursor przesunął się a kursor kopiujący został na 
swoim miejscu. Naciśnij teraz [copy] tak, aby cała linia 10 
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była przepisana. Naciśnij [RETURN] a poprawiona linia zostaje 
zapamiętana w pamięci. Kursor kopiujący znika, a główny kursor 
ustawia się pod nową linią 14. Aby poprawić drugą pomyłkę 
przytrzymaj [SHIFT] i naciskaj klawisz ł tak długo, aż kursor 
kopiujący pojawi się na samym początku linii 39. 

Naciskaj [coPY] aż kursor znajdzie się nad cudzysłowem 
obok słowa pow i e d z ie Ć. Teraz naciśnij spację. Zosta- 
nie ona wstawiona do dolnej linii. Przytrzynaj teraz klawisz 
[COPY] do chwili, gdy cała 3% linia jest przepisana i naciśnij 
[RETURN]. 

Możesz teraz wylistować program w celu sprawdzenia, że 
program w pamięci został poprawiony. Napisz 


list [RETURN] 


UWAGA: Aby szybko przesunąć kursor (podczas poprawiania) do 
prawego bądź lewego skraju linii naciśnij [CONTROL] i raz kla- 
wisze kursora «— lub — 

Teraz wyresetuj komputer (wyzeruj go) przez naciśnięcie 
[coNTRoL] [SHIFTJ 1 [ESC]. 

IF 

Komendy IF oraz THEN nakazują komputerowi sprawdzenie 
określonego warunku a następnie podjęcie działania w zależności 
od wyniku testu. Dla przykładu w instrukcji 

if 1+1 = 2 then print "correct" [RETURN] 

... komputer sprawdzi warunek i podejmie akcję w zależności 
od rezultatu, 

Słowo kluczowe ELSE może być użyte do poinformowania ko- 
mendy IF TREN o tym, jakie działanie należy podjąć na wypadek 
nie spełnienia warunku, dla przykładu 

1f 1+1=f then print"dobrze” else print "zle" [RETURN] 
Rezszerzymy teraz poprzedni program o polecenia if i then, 

Wprowadź następujący program. Zauważ, że dodaliśmy dwa 
symbole Ć znaczy "mniej niż" 1 znajduje się obok litery M. 
yznaczy "więcej niż" i znajduje sóę obok klawisza <, 


5 else [RETURN] 

18 input "jak masz na imie";a$ [RETURN] 
29 input "ile masz lat";zwiek [RETURN] 
30 tr wiek £13 then 68 [RETURN] 
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49 1f wiek © 24 than 75 [RETURN] 

58 1f wiek >» 19 then 85 [RETURN] 

68 print " Cóż "; aż "z ” nie jesteś jeszcze nastols= 

tkiem w wieku *; wiek " lat " : end [RETURN] 

7 print " Cóż "; a$; " jesteś nastolatkiem w wieku *; 

wiek; * lat * : end [RETURN] 

80 print " Cóż "; a$; " nie jesteś już nastolatkiem 

w wieku ", wiek; ” lat. ” : and [RETURN] 

Aby sprawdzić ten program napisz 

list [RETURN] 

Teraz napisz 

run [RETURN] 
Następnie odpowiedz na pytanie komputera i zobacz co się stanie. 

Widzisz teraz, jaki efekt w programie ma użycie tnstru- 
kcji IF i THEN, Słowo kluczowe END użyte jest w programie 
dosłownie w celu zakończenia działania programu. Jeżeli w 
linii 68 nis byłoby słowa END to program działał by dalej 
wykonując linie 78 1 8%. 

Podobnie, jeżeli w linii 78 nie byłoby słowa END to 
program działał by dalej wykonując linię 88. Dwukropek : 
przed słowem END rozdziela dwie lub więcej instrukcji w jednej 
linii programu. Dodaliśmy również linię 5 aby wyczyścić ekran 
na początku programu, Zawsze będziemy to robić od tej chwili 
aby programy wyględały ładniej. 

wyzeruj teraz komputer naciskając [CONTROL] [SHIFT] 
1(Esc]. 


FOR i NEXT 

Komendy FOR 1 NEXT używane sę, jeżeli wykonujemy 
pewną operację pewną ilość razy. Instrukcje określające 
operacje powinny być zamkaięte pętlą FOR i NEXT, 
Napisz 

5 cls [RETURN] 

10 for asi to 1g [RETURN] 

20 print "numer kolejny”; a [RETURN] 

30 next a [RETURN] 

run [RETURN] 
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Zobaczysz, że operacja z linii 2£ została wykonana 10 razy tak, 
jak zostało to ustalone instrukcją FOR w linii 19. Zwróć uwagę, 
że wartość zmiennej a również została zwiększona 10 razy o 1. 

Słowo kluczowe STFP (ang. "krok") może być użyte w ko- 
mendzie FOR NFX do określenia, jaki mna być krok w katdej 
operacji. Dla przykładu zmień linie 18 do postaci 


19 for a=1i to 58 step 5 [RETURN] 
run [RETURN] 


roki ujeme mogą być również używane. Dla przykładu 


19 for a=199 to 9 atep - 10 [RFTURN] 
run (RETURN) 


REM 


Rem jest skrótem od RFMark ("Uwaga"). Instruuje to kompu- 
ter, że należy zignorować resztę linii. Można użyć REM do 
przekazania informacji, dla przykładu 0 tytule programu, uży- 
ciu zmiennych itd. Dla przykładu: 

10 REM Schwyć najezdzców [RETURN] 

29 L=5:RFM ilość zyc TRETURN] 

Pojedynczy znak cudzysłowia (apostrof) może hyć użyty zamiast 
REM. (Znak ten wprowadza się trzymając [SHIFT) i klawisz 7). 
Dla przykładu: 


18'Schwyć najezdzceów (REeTuRN] 
29 L=5; ! ilosc zyc [Rerukn] 


GOSUB 


Jeżeli w prcgramie występuje zestaw instrukcji, które 

oowtarzane są wieł* razy (w różnych miejscach programu) 
to nie ma potrzeby w każdym miejscu w prozramie 

powtarzać całego zestawu; przeciwnie - cały zestaw może być 
ujęty w postaci "podprogramu" który może być "wywołany" instruk- 
cją GOSUB z numerem linii. Koniec podpro:ramu oznaczany jest 
instrukcją RETURN. Po napotkaniu tej instrukcji komputer wróci 
do linii następującej po linii z której wywołany był podprogram. 
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/Dwa następne prograny nie robię nic poza wypisanien 
tekatu na ekranłe i nie trzeba trudzić się wpisywaniem ich do 
pąmięci. Zostały one załączone wyłęcznie w celu pokazania jak 
podprogramy wykonuję powtarzalne zedania/, 

Dla przykładu w następującym programie: 


19 MODE 2 [RETURN] 

28 PRINT "This old man he played one" [RETURN] 

30 PRINT "He played knick-knack on my drum" [RETURN] 
40 PRINT "with a knick-knack paddy wack" [RETURN] 
58 PRINT "Give a dog a bone" [RETURN] 

60 PRINT "This old man came rollina home" [RETURN] 
78 PRINT [RETURN] 

80 PRINT "This old man he played two” (RETURN) 

90 PRINT "He played knick-knack on my shoe" [RETURN] 
108 PRINT "with a knick-knack paddy wack" [RETURN] 
110 PRINT "Give a dog a bone" [RETURN] 

128 PRINT "This old man came rolling home" [RETURN] 
130 PRINT [RETURN] 

140 PRINT "This old man he played three" [RETURN] 
150 PRINT "He played knick-knack on my knee" [RETURN] 
180 PRINT "with a knick=knack paddy wack" [RETURN] 
190 PRINT "Give a dog a bone" [RETURN) 

200 PRINT "This old man came rolling home" [RETURN] 
210 PRINT [RETURN] 

run [RETURN] 


widać wiele linii, które musiały być powtórzone w różnych 
miejscach programu, jak na przykład refren w linii 18p. 
Zamieńmy teraz refren na podprogram i dodajmy na końcu 
instrukcję RETURN. Teraz będziemy wywoływać podprogram uży= 
wajęc instrukcji GOSUB 182, kiedy tylko będziemy go potrze= 
bować. Program wygląda teraz tak: 
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10 MODE 2 [RETURN] 

20 PRINT "This otd man he played one" [RETURN] 

30 PRINT "He played knick-knack on my drum" [RETURN] 
40 GOSUB 180 [RETURN] 

80 PRINT "This old man he played two" [RETURN] 

99 PRINT "He played knick-knack on my shoe" [RETURN] 
100 GOSUB 180 [RETURN) 

140 PRINT "Ihis old man he played three" [RETURN] 
150 PRINT "He played knick-knack on my knee" (RETURN; 
160 GOSUB 180 [RETURN) 

178 END [RETURN] 

180 PRINT "With a knick-knack paddy wack" [RETURN] 
190 PRINT "Give a dog a bone" [RETURN] 

200 PRINT "This old man came rolling home" [RETURN] 
210 PRINT [RETURN] 

220 RETURN [RETURN] 

run [RETURN] 


Czy zauważyliście, ile zaoszczędziliśmy gou1e zbędnego 
pisania? Dobrze zaprojektowane podprogramy sę podstawową częścię 
programowania. Prowadzą one do strukturalizacji programów i wym 
rebiaję u programisty dobre nawyki. 

Należy mieć na uwadze, ża nie zawsze trzeba "wskakiwać" 
do tego samego miejsca podprogramu; to jest na san początek, 
Podprogram napisany w liniach 589-8fg może być wywoływany 
przez: GOSUB 5ffd, GOSUB 640 lub GOSUB 790, 

Zwróć uwagę, że w powyższym programie instrukcja END jest 
użyta w linii 170. W przeciwnyn razie program w sposób naturalny 
kontynugje działanie po linii 160 i wykonuje linię 180, co 
nie noże mieć miejsca za wyjętkiem wywołania przez GOSUB, 


Prosta arytmetyka 

Całkiem łatwo można użyć komputera jako kalkulatora, 
Aby to zrozumieć, prosimy prześledzić następujące przykłady, 
Będziemy używali znaku ? jako synonimu instrukcji PRINT. 
Odpowiedź ukaże się na ekranie zaraz po naciśnięciu klawisza 


RETURN]. 


Dodawanie 
Wprowadź : 
? 3+3 [REruRN] 
6 
/zwróćmy uwagę, że nie należy pisać znaku równości s=/ 


wprowadź: 
? 8+4 [RETURN] 
12 


Odejmowanie 


Wprowadź: 
7? 4-3 [RETURN] 

1 

Wprowadź: 
2 8-4 [RETURN] 

4 


Mnożenie 


Wprowadź: 
? 3x3 [RETURN] 

9 

Wprowadź: 
? 8»4 [RETURN] 
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Dzielenie 


Wprowadź: 
? 3/3 [RETURN] 

1 

Wprowadź: 
? 8/4 [RETURN] 

2 


Dzielenie całkowite 
(użyj znaku | jako symbolu dzielenia z odrzuceniem reszty) 


Wprowadź: 
2 1046 [RLTURNJ 
1 
prowadź 


2 2043 [NETURN] 
6 
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Reszta z dzielenia 
(napisz MOD jako ckreślenie tej operacji) 
Wprowadź: 
? 10 MOD 4 (RETURN) 
2 
Wprowadź: 
? 9 MOD 3 [RETURN] 
[4 


Pierwiastek kwadratowy 
Aby znaleźć pierwiastek kwadratowy danej liczby napisz sqr( ). 
Liczba podpierwiastkowa winna być wewnątrz nawiasów. 
Wprowadź: 
? sąr( 16) (RETURN] (to oznacza 116) 
4 
Wprowadź: 
? sąr(19%) [RETURN] 
19 


Podnoszenie do potęgi 


Podnoszenie do potęgi to np. 3 do kwadratu (372), 3 do trzeciej 
potęgi (313) itp. 
Wprowadź: 
2 3/3 RETURN (co oznacza 33) 
27 
Wprowadź: 
2 814 RETURN (co oznacza 8%) 
4098 


Pierwiastek sześcienny 
Pierwiastek sześcienny można bardzo łatwo wyliczyć metodą 
podobną do poprzedniej. 
Aby znaleźć pierwiastek sześcienny z 27 ( Tar) wprowadź: 
4 271(1/3) RETURN 
3 
Aby uzyskać pierwiastek 3-go stopnia z 125 wprowadź: 
? 1251(1/38) RETURN 
5 
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Obliczenia mieszane 
(+,-,*,7) 

Obliczenia mieszane są rozumiane przez komputer, lecz 
wykonywane są według określonych priorytetów. Najwyższy prio- 
rytet dany jest operacjom mnożenia i dzielenia, następnie do- 
dawania i odejmowania. Tyczy się to obliczeń zawierających tyjzko 
te cztery działania. 

Jeżeli obliczamy 

3+1-2+7/4 
to można by przypuszczać, że obliczenia przebiegną tak: 

3+7-247/4 

= 8%T/4 

= 56/4 

= 14 
W rzeczywistości jednak jest to obliczane jak następuje: 

3+7-2%7/4 

= 3+7-14/4 

= 3+7-3.5 

= 10-3,5 

= 6.5 
Przekonaj się o tym wykonując tak jak jest napisane: 

2 3+7-2»7/4 [RETURN] 

6.5 
Sposób obliczeń można zmienić wprowadzając nawiasy. Komputer 
będzie wykonywał obliczenia zawarte w nawiasach przed mnoże- 
niem itp. poza nawiasami. Sprawdź to, wprowadzając obliczenie 
zawierające nawiasy: 

?(3+7-2)+7/4 (RETURN) 

14 
Priorytety wszystkich operatorów arytmetycznych są nastę- 
pujące (w kolejności malejącej): 
Potęgowanie 
MOD Reszta z dzielenia 
- Minus jednoargumentewy (wskazujący na liczbę ujemną) 
j3k 1 / Mnożenie i dzielenie 
N Dzielenie całkowite 
+ 1 - Dodawanie i odejmowanie 
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Dalsze wykładniki 


Jeżeli chcesz w swoich obliczeniach użynać liczb bardzo 
dużych lub bardzo małych, to wygodnie jest stosować zapis wy- 
kładniczy. Litera E używana jest do oznaczenia wykładnika 
liczby przy podstawie 10. Można używać E lub e. 

Dla przykładu 300 to to samo co 3x10?. W notacji wykładni- 
czej zapiszemy to jako 3E2, Podobnie, 0.03 to znaczy 3x1077. 

W notacji wykładniczej odpowiada to JE-2. Prześledź następujące 
przykłady. 
Możesz wpisać: 
? 39410 [RETURN] 
399 
lub też 
? 3E141E1 [RETURN] 
398 


? 39981999 [RETURN] lub ?[3E341E3 [RETURN] 
3808998 


? 30988%0.991 (RETURN) lub ? 3EJ31E-3 [RETURN] 
3 


Część T: Zapisz program na dysk 


Teraz, kiedy już przećwiczyłeś palce wpisując kilka 
instrukcji, chciałbyś pewnie wiedzieć jak przepisać program 
z komputera na dysk i jak załadować go z powrotem do pamięci. 
Nawet jeżeli jesteś zaznajomiony z zapisywaniem i ładowa- 
niem programów na/z kasety, to warto podać kilka informacji, 
które trzeba poznać mając do czynienia ze zbiorami dyskowymi. 
Dwie główne różnice są następujące. Po pierwsze - na do- 
piero co wyjętą z opakowania dyskietkę nie można zapisać 
jeszcze żadnej intormacji, co ma miejsce w wypadku kasety. Nowy 
dysk musi być wpierw "sformatowany", a czynność ta zostanie 
za chwilę przybliżona. 
Drugi punkt wart wskazania w tym miejscu to waga, jaką 
należy przywiązywać do właściwego nadawania nazw zbiorom dysko 
wym. Nazwy zbiorów na kasetach zwykle muszą spełniać bardzo 
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luźne reguły, różniąc się bardzo swoją długością; czasami 
mogą być w ogóle pominięte. 

Z dysksmi jest zupełnie inaczej. 

Nazwy zbiorów dyskowych muszą spełniać ściśle reguły na- 
rzucone przez CP/M; zostaną one podane dalej w tej części 


podręcznika. 


Formatowanie dysków 


Przed zapisaniem na dysku jakiejkolwiek infornacji, musi 
on zostać sformatowany. Formatowanie może być porównane do bndo— 
wania na dysku ,półek i przegródek przed wykorzvstaniem ich do 
pamiętania informacji, innymi słowy dn wyznaczenia zorzanizowa- 
nej sieci wzdłuż której dane mozą być zapisywane luh odczytywane. 

Formatowanie dzieli dysk na 360 rozłacznych obszarów 

Na dysku jest 40 ścieżek ("tracks") - od 

najbardziej zewnętrznej (ścieżka d) do najbardziej wewnętrznej 
(ścieżxa 39); obwód dysku nodzielony jest na 9 sektorów 
("sectors"). 

Każda Ścieżka może w jednym sektorze zapamiętać 512 
bajtów danych, stąd całkowita pojemność jednej strony dysku 
wynosi 180 KR (kilohajtów). 


Pierwsze kroki przy używaniu wzorcowego pakietu dysków 


systemowych CP/M 


Aby przyyolować czystą dyskietkę do adczytywania i zeni- 
gywania Twoich pro:ramiw, należy sformitować ją. Robi sio to 
używając strony 1 pakietu dyskiw systemowych CP/M (dostarczo- 
nych z Twoim komnuterem). 

Włącz system, a nestepnie włóż strono 1 pakietu do nenędu 
w komputerze. 

Jeżeli procujesz z 2 nabędami, zawsze "kłerej strony 1 do 
głównego napzdu - tego wbudoranego do koaputera. (Napęd A.) 

Napisz: 

|cnm RETURN 
(Symbol l uzyskasz neciskając klawisz 9 jednocześnie z (SFIFT) . 
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Po kilku sekundach na górze ekranu zobaczysz sautępujący 
nanis: 

CP/M Plus Amstrad Computer Llectronics ple 
Jest to komunikat świadczący, że komputer zrajduje się teraz 
pod kontrolą systemu operacyjnego CP/M. Zotaczysz również 
znaki AŻ wraz z kursorem, Są to tzw, "znaki gotowości" - po- 
dobne do Neady podczaa normalnej pracy komputera w języku 
BASIC - 1 oznaczaję, że komputer oczekuje na Twoje instrukcja. 

Od chwili włączenia systemu CP/M nie możesz już wprowaczać 
komend języka BASIC, ponieważ nie będą one już rozumiane. 

Jeżeli, dla przykładu, napiszesz komendę języka BASIC: 

cls [RETURN] 
to komputer przenisze Twoją komendę razem ze znakiem zapytania 

CLS? 
wskazując, że nie zrozumiał komendy, 

Aby rzucić okiem na Filka z komend CP/M napisz 

dir [RETURN 

Na ekranie zobaczysz skorowidz (DIRectory) konend syste- 
mowych 1 użytkowych. Jedną z nich jest komenda DISCKIT3. 
Napisz: 

disckitj RETURN 
Po chwili zobaczysz na górze ekranu nagłówek programu DISC KIT 
oraz poniżej 

One drive found 

Oznacza to, że działa program użytkowy DISC KIT oraz że 
komputer rozpoznał, że działa z jednym napędem dysków (tys 
wbudowanym do komputera) 

Jsżelt podłączyłeś dodatkowy napęd do komputera, to napis 
będzie brzmiał: 

Two drives found 


Na dole ekranu zobaczysz co następuje 


topy (i 
Format 4 
verify + 


Bbxit trom program g 


Jest to Lzy, "glówne menu" programu. Numery * kwadratach odpo- 
wiadają xlawiszom funkcyjnym po prawej stronie klawiatury 
(oznsezwonymi f9, fi, f4 i fT), a naciśnięcie jednego z nich 
odpowiada wybraniu fsdnej z opcji menu. 


Prosimy zwrócić uwapę, że naciśnięcie w tej chwili kla- 
wisza ff spowoduje opuszczenie programu DISC KIT i powrót 
do trybu wprowadzania bezpośredniego w systemie CP/M (znaki A>) 
Chcemy teraz sformatować dysk, naciśnij zatem klawisz 4(f4) 


OSTRZEŻENIE 
FORMATOWANIE UPRZEDNIO ZAPISANEGO DYSKU SPOWODUJE 
WYMAZANIE JEGO ZAWARTOŚCI 


Zobaczysz teraz na ekrenie nowe menu, pozwalające na 
*yhór różnych formatów, a dokładnie 


System format 9 
Data format 

Vendor format 3 
Exit menu 


Jak poprzedni© możemy teraz nacisnąć jeden z klawiszy 
funkrytnych (f3, f6, £9) 1 dokonać tym samym wyboru formatu. 
wszystkie typy formatów zostaną objaśnione w dalszej części 
podręcznika, ele teraz wybierz "Data format" naciskając klawisz 
a numerze 6. 

Zwróć uwagę, Że naciśniecie klawisza . (pod f9, f6 1 (3) 
powoduja przejście 7 trybu formatowania do poziomu głównego 
menu nrogramu DISC KIT. 

Nacisnąwszy klawisz funkcyjny numer 6 (i zakładając że 
nie dołączyłeś do komputera dodatkowego napędu) zobaczysz in- 
formocję: 


Y Pormat as data 
Any other key to exit menu 


w tej chwili należy wyjąć dysk systemowy CP/M i włożyć dysk, 
ktćry pragniesz sformatować, Strona dysku mająca zostać sforma- 
towann nowinna być zwrócona do góry napędu. 

Teraz naciśnij klawisz Y (Y oznacza Yes-tak, kontynupj 
działanie 1 sformatuj dysk). 

Dysk zostanie sformatowany (po kolei ścieżki 0-39) 
a ektualny numer ścieżki wyświetlony będzie w lewym górnym 
rogu ekranu. 

Xje można sformatować dysku, którego otwór zabezpieczający 
przed zapisem jest otrerty. Każda próha sformatowania takiego 
dyshtu łączyć się hędzie z komiinikatem: 
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Disc write-protected 

Insert disc to formet 

R-etry or C=ancel 
... po ukazaniu się którego należy nacisnąć (C (jako Cancel 
- odwołaj komendę), wyjąć dysk, włożyć właściwy dysk do forma 
towania. Jego otwór zabezpieczający powinien być zamknięty. 

Dopilnuj, aby otwór zabezpieczający w dyskach zawiere- 
Jących cenne programy zawsze był otwarty; NIGDY nie zamykaj tego 
otworu w dyskach, które składają się na wzorcowy pakiet dysków 
systemowych CP/M. 

Kiedy formatowanie jest już zakończone, zostaniesz popro- 
szony o wyjęcie dopiero co sformatowanego dysku i naciśnięcie 
dowolnego klawisza - co będzie sygnałem do kontynuowania 
programu, 

Czynność formatowania można powtórzyć wsuwając nowy 
dysk i naciskając Y. Można tak formatować po kolei tyle dysków, 
ile chcemy mieć sformatowanych w danym formacie. 

Kiedy już zakończysz formatowanie - naciśnij dowolny 
klawisz inny niż Y, a przejdziesz ponownie do poziomu głównego 
programu DISC KIT. 

Działanie innych opcji prozramu, tj. Copy i Ve- 
rify będą omówione w dalszej części podręcznika. Teraz, 
kiedy neuczyłeś się już formatować przy nomocy CP/M, wyzeruj 
komputer używając klawiszy [CONTROL] [SHIFT] i [ESCJ. 

Ząwsze trzymaj wzorcowe dyski CP/M w bezpiecznyn miejscu; 
są one dosłownie kluczem do Twojego systemu, W dalszej części 
podręcznika dowiesz się, jak wykonać "robocze kopie” tych 
dysków po to, aby dyski wzorcowe móc trzymać w zamkniętym, 
pewnym schowku, 


Formatowanie w systemie z 2 napędami 


Idź za wskazówkzmi umieszczonymi powyżej, wybierz opcję 
Format (menu główne) naciskejąc klawisz f4 a nestępnie klawisz 
f6 wybierając Data format. 

W tym miejscu zohaczysz trzecie menu, pozwalające wyhrać 
napęd w którym ma się dokonać formatowanie. 


Format A: 


Format B: 


Dr a O 


Exit menu 


Vybranie opcji Format B: (klawisz £f5) pozwoli na pozosta- 
wienie Strony 1 dysku systemowego w napęczie A i umieszczenie 
dysku przeznaczonego do formatowania w napędzie B, 

Po wybranin "Format b:" możesz nacisnąć Y - co spowoduje 
rozpoczęcie formatowania - łuk dowoluy inny klawisz - eby 
przejść do cełównego menu programu DISC KIT. 

Jeżeli wybrałeś opcję "Format A:" (klawisz f8), to MUSISZ 
pamiętać, aby wyjąć dysk systemowy z napędu A: t włożyć dysk 
przeznaczony do formatowania, 

Nie zapomnij: 

NIGDY NIE RYZYKUJ ZAPISANIA DYSKÓW SYSTEMOWYCH CP/M. 

Teraz, kiedy sformatowaliśmy jedną bądź dwie dyskietki, 
możemy zapisywać i odczytywać programy w języku BASIC na/z 
dysku. 


Zapisywanie programów z vamięci na dysk 


Po zapisaniu programu do pamięci komputera można przepisać 
go na dysk pisząc: 

Save "nazwa zbioru" RETURN 
Zwróć uwagę, że nadanie programowi nazwy jest obligatoryjne. 

Nazwa zbioru na dysku składa się z dwu części (pól). 
Pierwsza część jest konieczna i może zawierać do 8 znaków. 
Można używać litery i cyfry, ale nie wolno używać spacji i zna- 
ków przestankowych, Część ta zawiera zwykle nazwę programu. 

Druga część nazwy zbioru jest opcjonalna. Możesz użyć do 
3 znaków; i tym razem nie są dozwolone spacje lub znaki prze- 
stankowe. Oba pola rozdzielone są znakiem kropki (.). 

Jeżeli nie określisz drugiego pola, to system sam przy- 
porządkuje mu odpowiedni ciąg znakćw, taki jak .BAS dla ozna- 
czenia proyramu w języku BASIC lub .BIN dla oznaczenia zbioru 
zawierającego kod maszynowy. 
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Jako przykład operacji zapisu na dysk nanisz krótki 
program, następnie wsuń do napędu czysty sformetowany dysk 
i napisz 

Save "example" [RETURN] 
Po chwili ukaże się napis Ready; oznacza to, że program został 
zapisany na dysk. (Jeżeli tak się nie stanie - to przyjrzyj się 
komunikatowi o błędzie ti sprawdź, czy przypadkiem nie zapomniałe 
włożyć dysku do właściwego napędu, zamknąć otworu zahezpiecza- 
jącego przed zapisem lub też nie pomyliłeś się wpisując komendę. 


Katalog (Skorowicz) 


Po zapamiętaniu powyższego programu na dysku napisz: 

cat [RETURN] 
Na ekranie zobaczysz: 

Drive A: user 

FXAMPLE.BAS 1K 

177K free 

Zostanie wyświetlona nazwa zbioru wraz z podanym bądź 
przyporządkowanym ćrugim polem nazwy oraz długość zbioru 
(zaokrąrlona do najbliższej wielokrotności 1 KB, większej niż 
sama długość zbioru). Zostanie rćwnież podan- volna pojemność 
dysku, 


Ładowanie z dysku do namięci 


Programy mogą być ładowane z dysku a następnie wykonywane 
przy użyciu komend: 

loed "nazwa zbioru" [RETURN] 

run [RETUIN] 

lub też morą hyć bezpośrednio wykonywane no załadowaniu 
komendą 

run "nazva zbioru” [RETURN] 

Należy zwrócić uwazsę, że zbiory zabeznieczone mocą hyć 
uruchamiane wyłącznie w ten druri sposób. 
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A 1 B 


Jeżeli pracujesz z systemem o 2 napędach dyskowych, to 
możesz wybrać napęd w którym ma się dokonać dana operacja 
przez napisanie przeć komencami SAVE, LOAD lub CAT komendy 

|a [RETURN] 
lub 

|b [RETURN] 


Kopiowanie programów z dysku na dysk 


Widać już, że używając wyłącznie poznanych dotąd komend 
można kopiować proeramy z dysku na dysk. Wystarczy załadować 
program do pamięci z oryginalnego, źródłowego dysku, zamienić 
dyski i zapisać program na nowy, docelowy dysk. 

Aby przepisać program z dysku na dysk w systemie z 2 napę- 
dami wystarczy umieścić dysk źródłowy w nn. napędzie R: a dysk 
docelowy w napędzie A i napisać: 

|b [RETURN] 

load "nazwazbioru" [RETURN] 

|a [RETURN] 

save "nazwazbioru" [RETURN] 


W CPC 6128 istnieją cztery metody zapisywania zbiorów na 
dysk. Obok zwykłego zapisywania zhiorów języka BASIC komendą: 
save "nazwazhioru" [RETURN] 
są jeszcze trzy alternatywne metody przeznaczone do bardziej 
specjalistycznych zastosowań: 


Zbiory ASCII 


save "nazwazbioru",a [RETUIN] 
Dodanie przyrostka, a zleca komnuterowi zapisanie programu 
luh danyct w postaci zbioru tekstowego w kodzie ASCII. Metodę 
tę stosuje się do zbiorów utworzonych przez procesory tekstów 
lub inne programy aplikacyjne, a szczemółowe omówienie tej 
metody znajdziemy w dalszej części podręcznika przy okazji 
napotkania jej zastosowań. 
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Zbiory zabezpieczone 


save "nazwazbioru",p [RETURN] 
Dodanie przyrostka, p nakszuje zabezpieczenie zbiorów w ten 
sposób, że programy takie nie mogą być wylistowane po zała- 
dowaniu oraz zatrzymane przez naciśnięcie klawisza [Esc] po 
uruchomieniu. 

Programy zapisane w ten sposób mogą być uruchomione wy- 
łącznie w sposób bezpośredni komendą 


run "nazsszbioru” [RETURN] 


lub 

chain "nazwazbioru" [RETURN] 

Jeżeli przewidujesz, że będziesz chciał dokonać edycji 
luk zmienić taki program, to koniecznie musisz posiadać jego 
kopię nie zabezpisczoną, zapisaną bez przyrostka „p. 


Zbiory binarne 


save"nazwazbioru”,b, (adres początkowy> , 4długość 
w bajtach> ,„[<opcjonalny adres startu? J [RETURN] 

Ta opcja pozwala na zapisanie na dysk bloku danych 
z pamięci RAM w takiej postaci, w jakiej występuje w pamięci. 
Należy podać komputerowi, od jakiego adresu rozpoczyna się blok 
danych do zapisu, jaki jest długi i - jeżeli zachodzi potrzeba - 
adres, od którego ma się rozpocząć wykonywanie tak zapisanego 
programu po jego powtórnym załadowaniu do pamięci. 


Kopia ekranu 


Opcja zapisywania zbiorów binarnych pozwala na zapisanie 
na dysk pamięci ekranu, w postaci jego kopii. Zawartość ekranu 
zostanie zapisana tak, jak jest widziana przy oDomocy komendy: 

save "obrazekranu",b,49152,16384 [RETURN] 

„.. gdzie 49152 jest początkowym adresem pamięci ekranu 1 16384 
ilością komórek pamięci, które trzeba zapisać. 

Aby odtworzyć obraz na ekranie napisz: 

load "obrazekranu" (RETURN 
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Więcej informacji o tym, jak używać system do manipulo- 
wania zbiorami pomiędzy dyskami (1 kasetami) znajdzie się 
w dalszej części podręcznika, 

Na zakończenie upewnij się, że zastosowałeś się do nastę- 
pujących ważnych ostrzeżeń zawartych na początku tego podręcz- 
nika w rozdziale zatytułowanym "WAŻNE". 

Uwagi o instalacji 5,6,7 

Uwagi o obsłudze 1,2,3,4,5,6,7,9 
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Część 8: Tryby organizacji ekranu, kolory, grafika ... 


Amstrad CPC6128 (Colour Personal Computer) ma trzy tryby 
(MODE) organizacji ekranu: tryb O, tryb i i tryb 2, 

Po włączeniu do sieci ustawiony jest tryb 1. 

Włącz komputer i naciśnij klawisz 1, Naciskaj klawisz 
tak długo, aż zapełnią się jedynkami dwie linie. Jeżeli poli- 
czysz jedynki w linii, przekonasz się, że jest ich 40. Oznacza 
to, że w trybie 1 jest 40 kolumn na ekranie. Naciśnij 
[ReTunn] - zobaczysz komunikat "Syntax error", ale nie marśtw 
się, jest to szybki sposób odzyskania komunikatu "Ready", 
który oznacza, że komputer czeka na następną instrukcję. 
Ypisz teraz: 


mode © [RETURN] 


Litery na ekranie są teraz większe. Wciśnij znowu klawisz 1 
i trzymaj tak długo jek noprzednio. Jeżeli policzysz jedynki 
w linii zobaczysz, że jest ich 20, Oznacza to, że w trybie O 
jest 20 kolumn, Naciśnij [ETuRN] jeszcze raz. 

Wpisz: 


mode 2 [RETURN] 


Znaki są teraz najmniejsze i, jeżeli wpiszegz całą linię znaków, 
możesz przekonać się, że jest ich 80. 

Rekapitulując: 

tryb 0 (mode 0) = 20 kolum 

tryb 1 (mode 1) = 40 kolumn 

tryb 2 (mode 2) = 80 kolumn 

Na koniec naciśnij [RErunx] jeszcze raz. 


Kolory 

Fóżnych kolorów jest 27, Na monitorze zielonym (GT65) są one 
różnymi odcieniami zieleni, Jeżeli kupiłeś monitor GT65 możesz 
dokupić Modulator/Zasilacz AMSTRAL MP2 co umożliwi ci dołą- 
czenie komputera do twojego domowego telewizora kolorowego 

i wykorzystanie możliwości tworzenia barwnej grefiki. 

V tryhie O na ckranie może być jednocześnie do 16 (z 27) 
kolorów, 

W trybie 1 na ekranie może hyć jednocześnie do 4 (z 27) kolorów. 
Y trybie 2 na ekranie mogą być jednocześnie tylko 2 (z 27) 
kolory. 
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Można zmieniać kolor obrzeża (BORDER), papieru (PAPER) 
(powierzchnia, na której mogą pojawiać się znaki) lub pióra 
(PEN) (samych znaków) niezależnie jedno od drugiego. 

w tablicy i zamieszczono wykaz kolorów dostępnych 
w CPC6128 wraz z ich numerzwi, 

Dla wygody wykaz ten zamieszczono również na pokrywie 
komputera z prawej strony. 


GŁÓWNA TABELA KOLORÓW 


Nr Kolor Nr Kolor Nr Kolor 

© Czarny 9 Zielony 18 J.zielony 

1 Niebieski 16 Lazurowy 19 Zieleń morska 
2 J.niebieski 11 Błękitny 20 J.lazurowy 

3 Czerwony 12 Żółty 21 Cytrynowozielony 
4 Szkarłatny 13 Biały 22 P.zielony 

5 Bladofioletowy 14 P.niebieski 23 P.lazurowy 

6 J.czerwony 15 Pomarańczowy 24 J.żółty 

7 Purpurowy 16 Różowy 25 P.żółty 

8 J.szkarłatny 17 P.szkarłatny 26 J.biały 

J. -— Jaskrawył$ P. — Pastelowy 


Tahlica 1. Kolory i ich numery 


Jak już wspomniano wcześniej, po włączeniu do sieci, komputer 
jest w trybie 1. Ahy powrócić do trybu 1 z innego trybu, należy 


wpisać 


mode 1 RETURN 


tyświetlanie na ekranie 


Obrzeże (BORDER) jest to powierzchnia otaczająca papier 
(PAPER). (Zauważ, że po włączeniu do sieci zarówno obrzeże, 
jak i papier są koloru niebieskiego). Znaki na ekranie mogą 
pojawiać się tylko wewnątrz obrzeża. Papier jest tłem dla zna- 
ków, a pióro (PEN) pisze znaki. 

Teraz wytłumaczytwy, jaki jest mechanizm wyboru kolorów 
i jak możesz je zmieniać, 

Po vłączeniu co sieci lub wyzerowaniu komputera, obrzeże 
ma zawsze kolor nr i. Spójrz na główną tabelę kolorów i zohacz 
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że kolor nr i jest niebieski. Kolor obrzeża może tyć zmieniony 
rozkazem BORDER, za którym podany jest numer koloru, Jeżeli 
chcesz zmienić kolor obrzeża na biały, wpisz: 


border 13 [RETURN] 


Jak dotąd, łatwo. Teraz będzie trudniej ... 

Po włączeniu do sieci lub wyzerowaniu komputera, do papieru przy- 
pisany jest atrament o numerze 0, a do pióra atrament o numerze i 
To nie oznacza, że papier ma kolor 0, a pióro kolor i według 
głównej tabeli kolorów ... 

Ważną rzeczą jest pamiętać, że O i 1 są w tyu nypadki: numem 
rami atramentów, a nie numerami kolorów. Aby to zrozumieć, 
wyobraź sobie, że masz 4 buteleczki na atrament, o numerach 
0, 1, 2 1 3 i atrament w każdej butelce możesz zabarwić jednym 
z 27 kolorów o numerach O do 26. Z tego wynika, że atrament 
o numerze 1 niekoniecznie musi być koloru o tym samym numerze, 
ponieważ może być zabarwiony innym kolorem, Możesz nawet zabar- 
wić wszystkie atramenty tym samym kolorem. 

Tak właśnie jest w komputerze. Rozkazy INK 4 PEN pozwalają 
kolejno zabarwić dany atrament kolorem i "nanełnić" pióro danym 
atramentem. 

Pamiętając, że mamy ustawiony tryb 1 (40 koluun), spójrz 
na tablicę poniżej. Z pierwszej i trzeciej kolumny możesz odczy- 
tać, że atrament o numerze 1 (przypisany do pióra po wyzerowaniu 
komputera) zabarwiony jest kolorem 24, Spójrz teraz na główną 
tabelę kolorów (tablica 1), z której wynika, że jest to koior 
jaskrawo żółty - taki właśnie kolor mają znaki na ekranie 
po wyzerowaniu, 
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POCZĄTKOWE ZABARWIENIE ATRAMENTÓW 


Nr atrewontu Mr koloru Nr koloru Nr koloru 

Tryb Q Tryb 1 Tryb 2 

o 4 1 1 

1 24 24 24 
2 20 20 1 
3 6 6 24 
4 26 1 1 
5 [o 24 24 
U 2 20 1 
(i 8 6 24 
8 10 1 1 
9 12 24 24 
10 14 20 1 
11 16 6 24 
12 18 1 1 
13 22 24 24 
14 Prze łĄcZzEne 20 1 

1,24 
15 Przełączane 6 24 
16,11 


Tablica 2, Zależności atrament /tryb /kolor 


Zależności pomiędzy atramentem, tryhem i kolorer podane x tabli- 
cy 2 nie są niezmienne. Jest to ustalente wstępne, nrzyjmowane 
nrzy wyzerowaniu lub włączeniu do sieci komputere, Zuinanę za- 
barwienia atramentu umożliwie rozkaz INK (atrament). Rozkaz ten 
ma dwa paranetry. Pierwszym parametrem jest numer atranentu, 
który ma być zaharwiony, ćruzim jest numer koloru, Parenctry 
te muszą być oddzielone przecinkiem. 

Tak więc, wiedząc, że w piŃrze jest atrament o nuwerzę 1, 
zmieńmy kolor tego atramcetu na pomorańczowy, 
Wpisz: 

ink 1,15 [Rtvrnn] 


., a zohaczys7, że liiery no ekranie zmieniły kołev, 
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Kolor tła może być rownież zmieniony rozkaseń I"K. 1emy, ze 
no włączeniu komputera, do papieru przypisen: iest ctravent O. 
Zmienmy więc barwę tego atramentu na zielon; | toler nr 0) 
wnisując: 


ink 0,9 [RFTUKN] 
Przypiszmy teraz do pióre 1uny Aatraneout . "oi" 
nen 3 [eFTunn] 


Zeusa”, 7e zmienia się kolor tylko nowych ?it * ;,po rozka e). 
Używasz teraz do pisanit atramentu nr 0 i z tablicy 1 i 2 Ż Sz 
znalezć że !olor atrament: nr 1 jest jaskrawo czerwony r 6). 
7? teń va na różowy wpisując: 


ink 3,16 [RETux] 


famięta|, że % jest numeren atramentu, który wybrałeś do nisa- 
nia rozkazem PFN 3, a 16 jestgnumerem koloru różowego. 

Zmieńmy teraz atrament orzypisany do panieru., Po wybraniu no- 
w*zo atramentu voprzednie tło pod znakami NIE zmienia się, 
ponieważ było ono "drukowane" innym atrameitem. Aby to zoba- 


CŁYĆ WpiSZ: 
pan 2 [RETURN] 
Znowu skorzy taj z tablic 1 i -, żeby stwierdzić, że kolor dla 


atramentu nr 2 jest iaskrawo zielono niehieski. Zmień go na 
czarny: 

in* 0 [arrvre] 
Teraz, na ekranies mómv znaki wnisine piorem, atramentami 
numer 1 i 31 tła "n m'low'".e" at'amentamt nuner O i 2. 
Barwa atrament: 020 byc zuieriana również w przypadku, zdy 


ten atrament nie jest akt: Inie przypisiny ani do naniera, 
ani do oiśra. Na przy ł'"", wpisz: 


ink 1,2 [RETUkN] 
... co zmienia kolor wszy:tsich z:aków wpi-ć uv: CZEsNIiOJ 


niórem 7 atramentem numer 1. 


Wnisź: 
cls [sr1uw] 


.., thy wyczy cić ekran. 
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Powinieneś teraz potrafić poinstruować komputer jak wrócić do 
kolorów początkowych (niebieskie obrzeże i tło oraz jaskrawo 
żółte litery). Spróbuj to zrobić rozkazami BORDER, PAPER, PEN 
i INK. Jeżeli ci się nie uda, no prostu wyzeruj komputer przez 
naciśnięcie klawiszów [CONTROI] [SHIFT] 1 [FSC]. 


Kolory przełączane 


Można spowodować, że kolor znaków jest przełączany pomię- 
dzy dwoma kolorami,-W tym celu w rozkazie INK barwiącym atrament 
przypisany do pióra należy dodać trzeci parametr, który jest 
numerem drugiego koloru, Aby zobaczyć na ekranie litery, których 
kolor zmienia się z jaskrawo białego na jaskrawo czerwony, wy- 
zeruj komputer ([CONTROLJ[SHIFT][FSC] ) i wpisz: 


ink 1,26,6 [RETURN] 


Tutaj 1 jest numerem atramentu vrzypisanego do pióra, 26 jest 
kolorem jaskrawo białym, a 6 jest kolorem jaskrawo czerwonym. 
Również tło może mieć kolor przełączany, w tym celu w rozkazie 
INK, barwiącym atrament przypisany do papieru, należy dodać 
numer drugiego koloru. 

Aby zohaczyć na ekranie tło, którego kolor zmienia się 
z zielonego na jaskrawo żółte, wpisz: 


ink 0,9,24 [RETURN] 


Tutaj O jest numerem atramentu przypisanego do papieru, 9 ozina- 
cza kolor zielony, 24 - kolor jaskrawo żółty. 
tyzeruj teraz komputer ( [CONTROL] [SHIFT] [ESC]). 

Zobacz w tablicy ?, że w trybie O, dwa atramenty (numery 
14 i 15) są wstępnie zabarwione dwukolorowo. Innymi słowy 
w rozkazach INK harwiących te atramenty został dodany trzeci 
parametr 
vpisz noniższe: 

mode O [RETURN] 

pen 15 [RETUIA] 
zohaczysz, że słowo "Ready" jest na zmianę błękitne i różowe, 
Teraz wpisz: 

paper 14 [RETULNJ 

cls [RUTVEN] 
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Zobaczysz, że prócz przełączania barw liter "Ready" pomiędzy 
kolorem błękitnym i różowym następuje również przełączanie 
barw tła z żółtego na niebieskie. 

Atramenty 14 i 15 mogą być orzeprogramowane rozkazem INK 
na inne przełączane kolory lub na kolory stałe. 

W końcu można równieź przełączać kolor obrzeża, co można 
uzyskać przez dodanie drugiego koloru w rozkazie BORDER, 
Wpisz: 

border 6,9 [RETURN] 


Zobaczysz, że kolor obrzeża jest przełączany z jaskrawo czerwo- 
nego na zielony. Zwróć uwagę na to, że kolor obrzeża może być 
ustalony na którykolwiek (lub którąkolwiek parę kolorów) spośród 
27 kolorów, bez względu na aktualny tryb. 

Wyzeruj koaputer: 
W celu demonstracji dostępności kolorów wpisz, a następnie 
uruchom następujący program: 


10 MODE O [RETURN] 

20 czas=600:REM ustala szybkość zmian [RETURN] 
30 FOR b=0 TO 26 [RETURN] 

40 LOCATE 3,12 [RETURN] 

50 BORDER b [RETURN] 

60 PRINT "kolor obrzeża";b[RETURN] 
70 FOR t=1 TO czas [RETURN] 

80 NEXT t,b [RETURN] 

90 CLG [RETURN] 

100 FOR p=0 TO 15 [RETURN] 

110 PAPER p [RETURN] 

120 PRINT "papier"; p [RETUKN] 

130 FOR n=0 TO 15 [RETURN] 
140 PEN n [RETURN] 

150 PRINT "pióro"; n [RETURN] 

160 NEXT n [RETURN] 

170 FOR t=1 TO czas>k2 [RETURN] 
180 NEXT t,p [RETURN] 

190 MODE 1 [RETURN] 
200 BORDER 1 [RETURN] 


210 PAPER 0 [RETURN] 
220 PEN 1 [RETURNJ 
230 INK 0,1 [RETURNJ 
240 INK 1,24 [RETURN] 
run [RETURN] 


ważne 


W powyższym programie, jak również w programach podanych 
w następnych rozdziałach, Słowa kluczowe BASIC'a nanisane są 
dużymi (CAPital) literami, W ten sposób słowa te są pisane 
przez BAISC przy listowaniu. Ogólnie rzecz biorąc, leniej jest 
używać przy pisaniu programu liter małych, ponieważ ułatwia 
to znalezienie błędów wpisywania (błędnie vnisune słova kluczowe 
przy listowantiu NIE będą napisane dużymi literami). 

W pozostałej części niniejszego rozdziału używamy zarówno 
dużych jak 1 małych liter, aby orzyzvyczaić cię do tego sposobu 
działania. 

Nazwy zmiennych (np. x lub a$) NIE są zamieniane na duże 
litery przy listnwaniu, chociaż kom?uter rozpoznaje nazwę 
zmiennej bez rzzlęcu na to, czy jest ona napisana dużymi czy 
małyni literami. 


Uwaga 


Od tej chwili nie hędziemny pisać [NFTURNJ nu końcu każdej 
linii. Zakłacamy, że bęcziesz to robić autonatycznie, 


Grafika 


W namięci komputera zanamiętane są pewne znali symboliczne. 
w celu wydrukowania k! iregokolwiex z nich należy użyć słowa: 


cir$( ) 
Wewnątrz nawiasjw nowinien być numer znaku z zakresu 12 do 255. 
wyzeruj *ommuter ||[CGNTROLJ [SEIF1] Lesc] ) t wpisz: 

print chr$ (250) 
Nie zanomnij nacisnąć [m1]. Na ekranir nojswi się znak 
numer 250, którym jest człowiex ieący w nrena, 
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Jeżeli chcesz zobaczyć wszystkie znaki i symbole, które mozą 
być drukowane na ekrenie oraz ich numery, wpisz następujący 
program (przypominamy o naciśnięciu [RETURN] na końcu każdej 
linii). 


10 for n=32 to 255 

20 print n; chr$(n) 

30 next n 

run 
Wszystkie znaki oraz ich numery podano w rozdziale zatytuło- 
wanym "Nieco użytecznych informacji ..." 


LOCATE 

Rozkaz ten jest używany «w celu przemieszczenia kursora 
tekstowego na określone miejsce na ekranie, Jeżeli pozycja 
kursora tekstowego nie jest zmieniona rozkazem LOCATE, druko- 
wanie tekstu zaczyna się od lewego, górnego rogu ekranu, co 
odpowiada współrzędnym (x,y) = (1,1) (x jest pozycją noziomą, 
y jest pozycją pionową). W trybie 1 kolumn jest 40, a linii 25. 
Dlatego, aby umieścić znak w środku górnej linii w trybie ji, 
należy określić współrzędne x,y jako 20,1. 

Aby to zobaczyć, wpisz (pamiętaj o [RETutN] na końcu 
każdej linii): 

10 locate 20,1 

20 orint chr$(250) 

run 
Aby się przekonać, że jest to najryż>sza linia, wpisz: 

border 0 
Obrzeże jest teraz czarne, a człowieczek znajduje się w Środku 
najwyższej linii. 
W trybie O kolumn jest tylko 20, linii, tak samo jek noprzednio, 
25. Jeżełi teraz wpiszesz: 

mode 0 

run 
..., Zobaczysz, że człowieczek jest teraz w prawym, górnym 
rogu ekranu. Jest tak, ponieważ współrzędna x równa 20 
określa ostatnią kolumę w trybie O. 
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W trybie 2 jest 80 kolum i 25 linii, Prawdopodohnie 
potrafisz zgadnąć, w którym miejscu ekranu pojawi się człowie- 
czek po wpisaniu: 

mode 2 

run 
Wróć do trybu 1 wpisując: 

mode 1 
Sam wypróbuj, przez modyfikację narametrów instrukcji LOCATE 
i CHR$, rozmieszczenie różnych znaków na ekranie, Na przykład 
wpisz: 

locate 20,12:print chr$(240) 

Zobaczysz strzałkę w Środku ekranu. Zauważ, że w tej instrukcji: 
20 jest współrzędną poziomą (x) (w zakresie 1 do 40) 

12 jest współrzędną pionową (y) (w zakresie 1 do 25) 

240 jest numerem znaku symbolicznego (w zakresie 32 do 255). 
Aby otrzymać znak numer 250, nowtarzany przez cały ekran 

woisz: 

10 CLS 

20 FOR x=1 TO 39 

30 LCCATF x,20 

50 PRINT CHI:$(250) 

60 NEXT X 

70 GOTO 10 

run 


Naciśnij drukrotnie klawisz [rsc], aby przerwać działanie 
pro,rramu, 

Chcąc usunąć wcześniej voisony znak orzec wydrukowaniem 
n'stynnego (aby był tylko jeden człowiek, a nie cała linia) 
vnisz: 

RQ print " "; chr$(250) 

Nowa linie 750 eutom.tycznie zastępuje noprzednią) 
Teraz wpisz: 


run 
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FLAME 


Aby ulepszyć sposóh poruszania się znaku na ekranie dodaj 
następującą linię: 

49 fraume 

Komenda FRA*"F synchronizuje przesuwanie się ohiektów na 
ekranie z częstotliwością ramki obrazu monitora. Jeżeli brzmi 
to fla Ciehie zbyt technicznie, to zanamtętaj tylko, że komenda 
ta nowinna być użyta zawsze, kiedy oragniesz, aby tekst lub 
grafika płynnie przesuwały się na ekranie. 

Program może być dalej rozszerzony w celu poprawienia 
jakości ruchu poprzez dodznie kilku pętli opóźniających i uży 
cie innego synbolu znaku, 

Napisz 

list 
Teraz cocaj następujące linijki programu: 


70 FOR n=1 TO 398:NFX1 n 
80 FOl: x=19 TO 1 STEP-1 
90 LOCATF x,2 

100 FRAME 

110 PUINT CHK$(251);" " 
120 NFXT x 

130 FOIt n=1i TO 300:NFXT n 
140 GOTO 20 

run 


PLOT 


nomenda PLOT, co odróżnia ją od LUCKITLŁ, może hyć użyta 
dn określenia pozycji kursora uraficznezo ve «spitrzycnych 
Jojodynczych nunktów (oną. "nixels"). Punkt jest nejrniejszymn 
osiąralnym olemeniem ekrrnu. 

Zwróćmy uwagę, Że kursor graficzny nie jest ridezny 
i różni się 90 kursore znikowcgeo (tekstawezn). 


Na ekranio może Ltyć rozróżnione G40 vbunkt:v " pozin.ie 
1 400 w pionie, tsnółrzędne x i y określone £iov -tost oC 
levecn coln>.» rogu ekranu. "la on :rsnńłrzędne 0,0. 5 przeci- 
„ierstwic do "ursore znukoweze = rsoiłrzęcne nuda © cie 


n 


różnią się © trybich (modach) 4, 1 12. 


s2 


Aby się o tym przekonać wyresetuj komputer naciskając 
przyciski [CONTROLJ[SHIFT] 1 [ESC] a następnie napisz 

plot 32g,2gg 
Na środku ekranu pojewi się mały punkt, Zmierńmy teraz tryb 
pisząc: 

mode $ 

plot 329, 299 

Zobaczysz, że punkt na śro” „u ekranu jest dalej - jest on 
jędnak większy. 

Zmień tryb pracy powtórnie i napisz tę samą komendę aby 
zoheczyć efekt pracy w trybie 2: 

mode 2 

plot 320,200 
Punkt jest w dalszym ciągu, tym razem jednak znacznie miejszy. 

Ypisz r ekran punkty w różnych trybach i miejscach. Da ci 
to newną wprawę w używaniu komendy, Kiedy już skończysz — powróć 
do trybu 1 i oczyść ekran pisząc: 

mode 1 


DRAW 

Wpierw wyzeruj komputer używając klawiszy |CONTROIJ [SHIFT] 
[Esc]. Komenda DNLAW kreśli na ekranie linię wychodzącą z punktu, 
w którym usytuowany jest kursor graficzny. Aby poznać to w Szcze: 
gółach, przy pomocy poniższego orogramu narysuj na ekranie 
trójkąt. 

Zaczniemy przesuwając kursor graficzny komendą PLOT 
a następnie kreśląc (komendą DRAW) linię z pozycji kursora 
graficznego do góry w kierunku lewego górnego rogu, następnie 
prawego rogu itd. 
Napisz: 

5 cls 

19 plot 14,1 

28 draw 10,399 

39 draw 639,390 

4% drav 639,10 

50 draw 10,10 

68 coto 6 

run 


LI 
De) 


Aby zatrzymać tea provrum naciśnij dwa razy [Esc]. 
(Zauważ, że w linit 60 komouter został poinstruowany, iiby 
działał "w pętli" tak długo, dopóki nie zostanie zatrzymany 
dwukrotnym naciśnięciem [FSC]. Taka instrukcja jest użyteczna, 
jeżeli nie chcesz, aby nrogram samoistnie zatrzymał się nz 
końcu i wyświetlił napisa "Ready", który zwykle towarzyszy 7a- 
kończeniu nrogramu). 

Teraz dodaj następujące linie rysujące drugi trójkat 
wewnątrz pierwszego: 

69 plot 28,29 

19 draw 29,388 

89 draw 629,389 

99M draw 629,29 

169 draw 29,29 

119 goto 119 

run 
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I znów, aby przerwać program naciśnij dwa razy !ESCJ. 


MOVE 


Komenda MOVE działa w sposób podobny do PLOT, tj. kursor 
graficzny przesuwany jest do miejsca o współrzędnych xiy 
z tym jednak, że w nowym miejscu ustawienia kursora nie jest 
stawiany punkt (kropka). 
Napisz: 

c1s 

move 639,399 

Chociaż efektów tej komendy nie widać na ekrenie, to 
przesunęliśmy kursor Eraficzny do górnego prawego rogu ekranu, 

Przekorńajmy się o tym, kreśląc linię z aktualnego miejsca 
usytuowania kursora graficznego do Środka ekranu: 

draw 32,299 


Okręgi 


Okręzi wogą być kreślone z odcinków piostych lub irorzone 
z punktów, Jedną z metod jest rysowanie okręzu noprzez elawia- 
nie punkżłów na jego obwodzie. 
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!ak nidać z :ysunkuPunkt p na ovvodzie może być postawiony 
używając wsnółrzędnych x i y. SĄ one wyznaczane jako: 

x = 19d8%kcos(a) 

y = 199ysin(a) 


U 


Rysowanie okręgu z punktów 


W poprzednim progrórie określaliśmy punkty w stosunku 
dn leve7n dolnego rozu ekrenu, Jeżeli chcemy umieścić okrąg 
na śŚrocku ekranu, to musimy umieścić śrocek okręgu we współ- 
rzędnych 329, 299 a następnie ocnieść wszystkie punkty okręgu 
do jero środka noprzez dodanie jega współrzędnych. 


Prozram rysowania okręcu byłby taki: 


new 

19 CLS 

298 DIG 

3% FOR a=1 TO 3698 

4f MOVE 328,28g 

5y PLOT 329+199%COS(a),2A8+19AgSIN(a) 

64 NFXT 

run 

Zwróćmy uwacę na użycie słowa kluczowego new 
wykorzystanego nrzed wnisaniem programu, Infornuje ono komputer, 
że neleży zlikwicować w pamięci poprzedni program (w sposób 
ponntny do [CONTKOL]J[SIIFT] 1 [FSC]). Sama zawartość ekranu nie 
zostaje noruszone, 

Promień okręgu może hyć zrniejszony przez zastąpienie 
liczby 190 dowolną mniejszą liczhą (190 odnowiada ilości 
nunktów) 

Abv zobaczyć efekt innecn kreślenia okręgu (w radianach), 


zlikwitużny linię 29 nisząc 


26 
+4 zotarzyć wrnolninni okriu' 
ssńrzdiy diniwii wychńwe a "2 (ezo środku, dokonaj edycji 


linii 50 zastępnjąc słowo polot słowem drew. (Linia 59 będzie 


więc mieć postać): 
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59 draw 329+19gxcos(a) ,299+190psin(a) 


Spróbuj narysować taki okrąg raz z, a następnie bez 
linii 29. 

Zauważ, że w linii 60 tego programu użyliśmy NEXT zamiast 
NEXT a. Wolno jest pisać samo NEXT; komputer sam znajdzie od- 
powiednią komendę FOR. Jednakże, w programach, w których wy- 
stępują liczne pętle FOR i NEXT, warto czasem dodać nazwę 
zmiennej po NEXT - ułatwia to czytanie programu i określenie 
zasięgu każdej pętli. 


ORIGIN 


W poprzednim programie użyliśmy komendy MOVE w celu 
określenia środka okręgu, a następnie dodaliśmy współrzędne 
xi y do pozycji środka, Zamiast dodawać współrzędne środka 
możemy użyć komendy ORIGIN. Sprawi to, że każde współrzędne 
(x,y) będą odniesione do pozycji określonej komendą ORIGIN. 
Aby się o tym przekonać, napisz: 

new 

19 cls 

298.-for asi to 369 

39 origin 329,29g 

40 plot 199 kcos(a),190łsin(a) 

59 next 

run 


W celu wykreślenia mniejszych okręgów na ekranie wprowadź 
następujący program: 
new 
198 CLS 
29 FOR a=1 TO 368 
39 ORIGIN 196,282 
49 PLOT S5gźcos(a) ,5Pźsin(a) 
59 ORIGIN 442,282 
69 PLOT 5fxkcos(a) ,5Pysin(a) 
70 ORIGIN 196,116 
89 PLOT 58X%cos(a) ,SAysin(a) 
90 ORIGIN 449,116 


189 PLOT SBycos(a) ,5Płsin(a) 


119 NEXT 
run 
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Inny Sposóh tworzenia okręgu nrzedstawia program: 


new 

10 mode 1 

29 orizin 329,399 

39 deg 

40 move 9,19% 

50 for a=f to 368 step 198 

66 draw 19Hłsin(a) ,190kcos(a) 
79 next 

run 


Tym razem nomiędzy współrzędnymi na obwodzie okręgu 
kreślone są linie. Zwróć uwagę, że okrąg kreślony jest znacz- 
nie szyh ciej. 

Jeszcze raz zanbserwuj efekt wyeliminowania komendy DEG; 
usuń linię 30 i napisz run. 


FILL 

Komenda FILL używana jest do wypełniania kolorem obszaru 
obramowanego wykreślonymi liniami, brzegami ekranu lub okienka 
graficzneco. 

Wyzeruj komputer [CONTROL] [SHIFT] 'SC] a następnie 
napisz: 

new 

19 cls 

20 move 24,29 

39 draw 629,2 

40 draw 31,389 

5Q draw229,2 

run 
Na ekranie nojawi się trójkąt. Naprowadz kursor eraficzny 
na środek trójkąta pisząc: 

move 32,299 
Używając komendy FILL z arguuentem w postaci nunieru atramentu, 
wypełniny teraz (ang. "fill") ohszur ad pozycji kursoro da 
nzjhltższego obramowania, 
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Napisz: 

fill 3 
Przesuń teraz kursor poza trójkąt pisząc: 

move 9,9 
Zobacz co się stanie po napisaniu: 

fill 2 
Komputer użył gtramentu numer 2 do wypełnienia obszaru ograni- 
czonego narysowanymi liniami i brzegien ekranu. 

Zmień teraz program wpisując następujące linijki i zobacz 
co się stanie: 

59 draw 58,58 

69 move 3298,299 

16 1111 3 

run 
Zobaczysz, że przez najmniejszą przerwę w obramowaniu atrament 
wypływa” na zewnątrz. 

Zjawisko to możemy dalej zademonstrować wypełniając wpierw 
okrąg, utworzony z punktów, a następnie wykreślony. Napisz: 

new 

19 CLS 

20 FOR a=1i TO 368 

39 ORIGIN 329,2gg 

49 PLOT 1998 k+COS(a),199% SIN(a) 

598 NEXT 

66% MQVE - 188, 

79 FILL 3 

run 
Teraz spróbuj tak: 

new 

19 MODE 1 

29 ORIGIN 329,299 

39 DEG 

48 MOVE f,199 

58 FOR d=f TO 369 step 10 

69 DRAW 19MkSIN(d), 19934 COS(d) 

79 NEXT 

89 MOVE - 188,8 

99 FILL 3 

run 
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Możemy również uczynić okrąg niewidocznym; należy ustawić 
atrament pióra na taki sam kolor jak tło. Dodaj: 
45 GRAPHICS TN 2:INK 2,1 
run 
Komenda GRAPHICS PiN wybiera atrament który ma DYĆ używany do 
trorzenia grafiki na ekranie. Kolor temu atnmedyt nadaje komenda 
INK, która w tym wypadku wybiera kolor tła (tj. kolor numer 1). 
Na koniec woisz następujący program demonstracyjny. 
new 
19 MOLE g:BOxDEN 13 
28 wOVF g,29g:LtAW 648,2998 
39 FOR x=8f TO 569 STEP 89 
49 MOVE x,U:DRAW x,490 
58 NFXT:MOVE -49,3868 
64 FOR c=Q TO 7 
70 MOVEK 89,8:FILL C 
BY MOVER 9,-299:FILL C+8 
99 MOVER g,298:NXT 
199 GOTO 199 
run% 
Xolory pół mogą być po wypełnieniu zmieniane. 
Napisz: 
199 SPEFD INK 39,349 
119 BORDER RND £26, RND x26 
129 INK END$15, RNDK26, KNDY26 
139 FOR t=1 TO 588:NEXT:GOTO 119 
run 


lnlsze szczegóły 


bo bardziej zrozumiałe informacje na temat grafiki CPC 6108 
sięznij do rozdziału zatytułowanego "W rolnej chwili ..." 

Ahv zakończyć ten rozdział podajeny kilka prozramów 
Pomunstracyjnrch używających wielu komend t słów kluczowych, 
u1órce nowinany hyć już zrozumiałe, Wszystkie te programy nie- 


"rzerranie rysują na ekrani? newne wzory. 
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new 

10 BORDER O:GRAPHICS PEN 1 

20 m=CINT(RND*2):MODE m 

30 i1=RND*26:12=RND*26 

40 IF ABS$S(i1-12)<18 THEN 30 

50 INK 8,i1:INK 1,i2 

60 s=RND*5+3:0RIGIN 320,-100 

78 FOR x= -1008 TO 8 STEP s 

80 MOVE 8,0:DRAW x,380:DRAW 8,608 
90 MOVE 8,0:DRAW -x,388:DRAW 0,680 
100 NEXT:FOR t=1 TO 2888:NEXT:GOTO 20 
run 


108 MODE 1:BORDER O:PAPER 8 

20 GRAPHICS PEN 2:INK 0,8:i=14 
38 EVERY 2280 GOSUB 158 

40 flag=8:CLG 

50 INK 2,14+RND*12 

68 bŹ=RND*5+1 

70 cX=RND*5+1 

80 ORIGIN 320,2080 

90 FOR a=0 TO 1868 STEP P1/30 
100 x%=188*COS(a) 

110 MOVE x%,„yX 

120 DRAW 200*COS(a/bź) „288*SIN(a/cX) 
130 IF flag=1 THEN 40 

1468 NEXT 

150 flag=1:RETURN 

run 


10 
28 
30 
40 
50 
68 
78 
88 


98 

198 
110 
129 
130 
140 
150 
160 
178 
180 
190 
2080 
210 
220 
230 
240 
258 
260 
278 
280 
2908 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
4108 
420 
430 


MODE 1:BORDER 08:DEG 
PRINT "Please wait" 
FOR n=1 TO 3 
INK 8,8:1NK 1,26:INK 2,6:INK 3,18 
IF n=1 THEN sa=128 
IF n=2 THEN sa=135 
IF n=3 THEN sar150 
IF n=1 THEN ORIGIN 8,-58,0,640,0,4080 ELSE ORIGIN 8,0 
„8,648,0,480 
DIM cx(5)„cy(5),r(5),„lc(5) 
DIM np(5) 
DIM pxX(5,81),pyX(5,81) 
stz=1:cx(1):328:cy(1)s288:r(1)=80 
FOR stz=1 TO 4 
r(st+1)z=r(st)/2 
NEXT st 
FOR st=1 TO 5 
tle(st)s=8:np(st)=Q 
np(st)=np(st)+1 
pxt(st,np(st))=zr(st)*SIN(Lc(st)) 
pyX(st,nplst))=r(st)*COS(Lc(st)) 
tec(st)=slc(st)+3608/r(st) 
1F Le(st) < 368 THEN 188 
pxź(st,np(st)+1)=pxZX(st,1) 
pył(st,np(st)+1)zpyX(st,1) 
NEXT st 
CLS:cj=REMAIN(1):cj=REMAIN(2) 
cj=REMAIN(3):INK 1,2:st=1 
GOSUB 358 
LOCATE 1,1 
EVERY 25,1 GOSUB 518 
EVERY 15,2 GOSUB 558 
EVERY 5,3 GOSUB 590 
ERASE cx,cy,r,lc„np,pxX,pyX:NEXT 
GOTO 340 
cxX=cx(st):cyX=cy(st):le(st)=8 
FOR x%=1 TO np(st) 
MOVE cx%,cyź 
DRAW cxŻ+pxź(st,x%) „cyX+pyX(st,x%),1+(st MOD 3) 
DRAW cx%+pxX(st,x%+1)„cyX+pyX(st,x%X+1),1+(st MOD 3) 
NEXT x% 
IF stz5 THEN RETURN 
tc(st)=8 
cx(st+1)zcx(st)+1.5*r(st)*SIN(sa+lc(st)) 


440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
588 
590 
608 
610 
628 
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cy(st+1)=cy(st)+1.5*r(st)*COS(sa+lc(st)) 
st=st+1 

GOSUB 358 

st=st-1 

lc(st)=slc(st)+2*sa 

IF (lec(st) MOD 368)<>0 THEN 438 

RETURN 

1k(1)=1+RND*25 

IF ik(1)=ik(2) OR ik(1)=ik(3) THEN 518 
INK 1,ik(1) 

RETURN 

ik(2)=1+RND*25 

IF ik(2)=ik(1) OR ik(2)=ik(3) THEN 550 
INK 2,ik(2) 

RETURN 

1k(3)=1+RND*25 

IF ik(3)=ik(1) OR ik(3)=ik(2) THEN 590 
INK 3,ik(3) 

RETURN 
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Część 9. Używanie dźwięku 


Lźwięk generowany jest przez głośnik wbudowany do kompu- 
tera. Jeżeli używasz Modulatora/Zasilacza MP2 i domowego odbior- 
nika TV to pokrętło głośności w telewizorze należy ustawić na 
minimum. 

Poziom młośności może być wyregulowany pokrętłem VOLUME 
po prawej stronie komputera. Dźwięki generovane przez kompu- 
ter mozą być również doprowaczone do dodatkowego (zewnętrzne- 
go) wejścia zestawu stereofonicznego przy użyciu wyjścia z kom- 
putera oznaczonego STENFO. Umożliwi to słuchanie dźwięków 
generowanych przez komputer w wersji stereofonicznej - albo 
za pośrednictwem głośników hi-fi, alto słuchawek. Instrukcje 
podłączenia urządzeń do złącza STEREO komputera znajduje się 
w części 2 tego rozdziału. 


Komenda SOUND 


Komenda SOUND (Dźwięk") ma 7 części (zwanych parametrami ) 

Dwa pierwsze pararetry muszą być użyte; reszta jest opcjonalna. 

Komendę podaje się jako: 

SOUND 4<status kanału >, «okres tonu> ,Ćczas trwania>, 
<głośność >, Qobwiednia głośności y, Cobwiednia tonu; , 
Kokres szumu ) 

Wygląca to całkiem skomplikowanie, ale jeżeli przeanalizujemy 

bo kolei wszystkie parametry to wkrótce oswoimy się z nimi. 

Przynatrzmy się tym parametrom no kolei. 


Status kanału 


Dla uproszczenia, na początek potraktujmy status kanału 
iaka odniesienie do daneco kanzłu. Są trzy kenały cźwiękorwe 
i ne rezie hędziemy używać£ status kansłuy numer i. 


tkres tonu 
Okres tonu jest technicznym sposobem definiowania wyso- 
kośca Cźwięku, czyli innymi słowy "jaku to nuta" (tj. do, re; 


ri, fo, sol i!td.). Każda nute ma swój numer i jest to właśnie 
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4okres tonu)j>. Zajrzyj do rozdziału zatytułowanego "Trochę 
użytecznych informacji", a przekonasz się, że nuta "środkowe 
e (do)* ma okres tonu równy 239, 

Wyresetuj teraz komputer ; [ CONTROL][SHIFT][ESC] 
i napisz: 

19 sound 1,239 

run 
Usłyszysz krótki, trwający 0,2 s dźwięk c. Jeżeli nic nie 
usłyszałeś, to upewnij się, czy pokrętło VOLUME nie jest zu- 
pełnie skręcone i powtórnie uruchom program. 


Czas trwania 


Parametr ten ustala długość dźwięku, czyli innymi słowy 
"jak długo on trwa”. Parametr operuje jednostkami 0,01 s 
(jedna setna) i jeżeli nie zostanie on poczny to przyjmowana 
jest wartość 29. Wyjaśnia to, dlaczego dźwięk który dopiero 
co usłyszałeś trwał 0,2 sek (0,01 razy 29). 

Aby dźwięk trwał 1 sek należy użyć czas trwania równy 
100; dla 2 sek będzie to 200 itd. Napisz 

10 sound 1,239,200 

run 
Usłyszysz środkowe ce trwające 2 sek. 


Głośność 


Parametr ten określa początkową głośność (%.ięku. Zakres 
tego paremetru zmienia się od O do 15. £ Głośność ) równa 9 
jest minimalna, 15 - maksymalna. Jeżeli parametr zostanie 
pominiety, to przyjmowana jest wielkość 12. Napisz: 

10 sound 1,239,294,5 

run 
Zwróć uwarę na głośność dźwięku. Nepisz to powtórnie, zwięk- 
szając ją: 

19 sound 1,239,209,15 

run 
Zaweżysz, że usłyszałeś znacznie ezłośniejszy dźwięk. 


Obwiednia głośności 


Aby głośność dówięku zmieniała się w czasie jego trwa- 
nia, można użyć osobnej komendy ENV. W rzeczywistości możesz 
utworzyć wiele różnych obwiedni głośności i, podobnie jak 
komenda SOUND, obwiednie będą mieć swoje numery. Jeżeli utwo- 
rzyłeś obwiednię o nuńerze 1 i praeniesz użyć jej w komendzie 
SOUND, to należy * miejsce <obwiednia głośności > wpisać 
cyfrę 1. Tworzenie otriedni głośności będzie Wkrótce wy- 
jaśnione. 


Obwiednia tonu 


Aby wysokość dźwięku zmieniała się w czasie jego trwania, 
możesz utworzyć obwiednię tonu osobnym rozkazem ENT. W rzeczy- 
wistości możesz utworzyć wiele obwiedni głośności i, podobnie 
jak komenda SOUND, każda z nich będzie miała swój numer. 
Jeżeli utworzysz obwiednię o numerze 1 i pragniesz użyć jej 
w komendzie SOUND, to w miejsce obwiednia tonu należy wpisać 
cyfrę 1. Tworzenie obwiedni tonu będzie wkrótce wyjaśnione. 


Szum 


4szum >) jest ostatnim parametrem komency SOUND. Zakres szumu 
zmienia się od 1 do 31. Dodaj parametr ĆszumYy równy 2 na 
końcu komendy SOUND i oceń efekt. Następnie zmień wartość tego 


parametru na 27 i zwróć uwazę na różnicę. Napisz: 


19 sound 1,239,299,15,,,2 
Zwróć uwagę na dwa "puste" parametry (,,,) przed paremetrem 2. 
Należy je wstawić, gdyż nie utrorzyliśmy ani obriedni głośności 
ani tonu. 


Tworzenie obwiedni głośności 


Dokonuje się tego za pomocą rozkazu ENV. W najprostszej 
postaci komenda ma 4 parametry. Wprowadza się je jako: 


ENV C numer obwiedni >), Cilość kroków >, rozmiar kroku), 
4czas kroku>j 
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Tak jak poprzednio, przyjrzyjmy się po kolei poszczególnym 
parametrom, 


Numer obwiedni 


Jest to liczba, dzięki której obwiednie mogą być rozróż- 
niane w komendzie SOUND. Zakres: 0 do 15. 


Ilość kroków 


Parametr ten podaje, przez ile poziomów głośności ma 
przejść dźwięk przed swoim zakończeniem. Dla przykładu: 
jeżeli dźwięk ma trwać 10 sekund, to możesz pragnąć, aby było 
10 kroków głośności; każdy trwający 1 sek. 4 takim wypudku 
«ilość krokówy należy ustawić na 10. 

Dopuszczalny zakres tezo parametru: © do 127, 


Rozmiar kroku 


Każdy krok może mieć głośność inną w stosunku do poprzed- 
niego o O do 15 jednostek. Natężenia młośności są takie jak 
w komendzie SOUND z tym, że z::kres tego parametru może się 
zmieniać od -125 do +127. Dziej? się tak dlate:o, że po 
głośności 15 z powrotem nastąpi głośność f. 


Czas kroku 


Paremetr ten określa czes poniędzy krokami w jednostkach 
0,01 sek. Zakres parzmetru: O do 255%, co oznacza, że jeden krok 
może trnać do 2,56 sek. (0 traktowane jest jako 256). 
Należy zwrócić uwagę, że ilość kroków » pomnożona przez 
X ezis kroku » nie powinne być większa niż wartość paranetru 
Ćczis trwaniayw kamendzie SOUNL. 

przeciwnym ri:zic dzwięk się skończy zznim przejdzie 

"rzez rszystkie kroki głośności. (Y takim nrzypadku pozostała 
część ohwiedni jest Jomijana). 

>odobnie, jeżeli parametr Ćczes trwaniaj w komendzie 
SAUNN jest większy niż Kilość krokówY rezy Ćczas kroku» 
to dźwięk będzie trwał po przejściu arzez wszystkie stopnie 
obriedni i zostanie utrzymny na noziowi> ostetniezgo kroku. 
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W celu eksperymentu z rozkizem FNV wpisz program: 


10 env 1,19,1,1989 
29 sound 1,142,1999,1,1 
run 
Linia 29 określa dźwięk 142 (międzynarodowe a), trwający 
10 sekund, o początkowej głośności 1 i obwiedni głośności 
numer 1. Obwiednia ta składa się z 10 kroków, zwiększających 
co 1 sek. (0,01 x 100) głośność o 1. 
Zmień następnie linię 10 na następujące linie: 
10 env 1,109,1,15 
19 env 1,109,2,19 
19 env 1,198,4,10 
19 env 1,59,29,296 
19 env 1,58,2,2 
10 env 1,58,15,398 
W końcu spróbuj tak: 
10 env 1,598,2,10 


Zauważysz, że od połowy dźwięku jego poziom głośności 
pozostaje stały. Jest tak, ponieważ ilość kroków określona 
była na 50 a czas kroku na 0,1 sek. Zatem czas przejścia przez 
obwiednię był określony na 5 sek a czas trwania dźwięku na 19 
(gdyż parametr Cczas trwania) wynosił 199%). 

Teraz samodzielnie utwórz kilka obwiedni i zobacz jakie 
uzyskasz efekty. 

Jeżeli prauniesz utworzyć bardziei interesujące obwiednie, 
to na końcu konendy ENV parametry ilość kroków „, rozmiar 
kroku i czas kroku mową hyć powtórzone jeszcze do 4 razy, 
tworząc różne "sekcje" jednej obwiedni. 


Tworzenie obwiedni tonu 


Tworzenie obwiedni tonu dokonuje się za pomocą komendy 
ENT. W swej najprostszej formie ma ona 4 parametry i podaje 
się je jako: 


ENT Cnuner obwiedni >, «ilość kroków > , 4 ton kroku), 
«czas kroku > 


Raz jeszcze prześledźmy Zniczenie poszczezńlnych parametrów. 
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Numer obwiedni 


Jest to parametr, o wartości z zakresu 0-15, wskazujący 
na numer obwiedni i może być wykorzystany w komendzie SOUND. 


Ilość kroków 


Parametr Zilość kroków> wskazuje ile różnych tonów 
ma wystąpić przed zaniknięciem dźwięku, Dla przykładu w nucie, 
która ma trwać 10 sekund możesz pragnąć dziesięć kroków tonu 
po 1 sekundzie każdy, W takim wypadku parametr powyższy powi- 
nien przyjąć wartość 1%. 

Parametr może przyjmować wartości od O do 239, 


Ton kroku 


Każdy następny krok może różnić się od poprzedniego 
0 -128 do +127 poziomów dźwięku. Ujemna wartość parametru 
podwyższa wysokość dźwięku; dodatnia - obniża, Najkrótszy 
okres tonu wynosi gf, o czym należy pamiętać formułując obwied- 
nię. Cały zakres wysokości dźwięku podany jest w rozdziale 
«Trochę użytecznych informacji". 


Czas kroku 


Parametr ten ustala czas trwania kroku w jednostxach set- 
nych części sekundy (0.01 sek). Zakres tego parametru: g do 
255, ca oznacza, że najdłuższy czas trwania jednezo kroku wy- 
nosi 2,56 sek (0 traktowane jest jak 256). 

Zauważmy zatem, że / ilość kroków > pomożone przeż 
Qczus krokuy nie powinno być dłuższe niż wielkość wynikająca 
z parametru <czas trwaniaj komendy SOUND - w przeciwnym razie 
dźwięk zeniknie przed przejściem przez wszystkie poziomy 
obwiedni. (w takim wypadku pozostała część obwiedni zostanie 
pominięta). 

Podobnie, jeżeli wielkość wynikająca z parametru £ czes 
trwania > komendy SOUND jest większa niż Cilość kroków> 
razy 4czes kroku» to po przejściu przez wszystkie poziomy 
obwiedni dźwięk będzie trvał nadel i pozostanie w takim stroju, 
Jaki wynika z ostatniero kroku obwiedni. 


Aby lepiej poznać obwiednię tonu wpisz taki program: 
19 ent 1,199,2,2 

29 sound 1,142,268%,15,,1 

run 


Linia 20 określa dźwięk o wysokości 142 (międzynarodowe a) 
trwający 2 sekundy, z początkową głośnością 15 (max), bez obwied= 
ni głośności (co wynika z ,,) i z obwiednią tonu numer i. 

Linia 10 określa obwiednię tonu numer i, składającą się 
ze 19 kroków, zwiększającą okres dźwięku (czyli zmniejszającą 
wysokość) o 2 co f,P2 sek (2 x 0,01). 

Pozmieniaj teraz linię 10 na następujące linie: 

10 ent 1,199,-2,2 

19 ent 1,14,4,29 

19 ent 1,10,-4,29 
Zmień teraz komendę SOUND i obwiednię tonu wpisując: 

19 ent 1,2,17,78 

20 sound 1,71,1498,15,,1 

39 goto 19 

run 
Aby zatrzymać program naciśnij dwa razy ESC . 

Teraz już możesz w oelu tworzenia różnych dźwięków 
połączyć obwiednię głośności, tonu i komendę sound, 

Zacznij tak: 

198 env 1,199,1,3 

29 ent 1,199,5,3 

39 sound 1,142,399,1,1,1 

run 
Następnie zmień linię 20: 

29 ent 1,180,-2,3 

run 
Po czym zamień wszystkie linie przez wpisanie: 

19 env 1,198,2,2 

29 ent 1,199,-2,2 

39 sound 1,142,299,1,1,1 

run 
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Jeżeli pragniesz utworzyć ciekawsze obwiednie tonu, 
to 3 parametry: «ilość kroków)» , 4ton kroku)» i<Cczas kroku) 
mogą być na końcu komendy FNT powtórzone do 4 razy, określając 
różne "sekcje" obwiedni. 

Sam spróbuj różnych odmian. Dodaj trochę szumu i kilka 
dodatkowych sekcji obwiedni tonu i głośności, 

Rozdział zatytułowany "Kompletna lista słów kluczowych 
języka BASIC" zawiera wszystkie detale różnych koment zwią 
zanych z dźwiękiem. 

Jeżeli zainteresowany jesteś melodyczną stronę używania 
dźwięku, to zajrzyj do części "Niech brzmi muzyka ..." roz- 
działu "W wolnej chwili...". 
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Część 10: Wprowadzenie do AMSDOS i CP/M 


Czym jest AMSDOS? 


Kiedy włączamy komputer do sieci lub wyzerujemy go, to 
cały system działa pod nadzorem systemu operacyjnego 
*AMSDOS".AMSDOS jest skrótem od słów AMStrad Disco Operating 
System (Dyskowy system operacyjny AMSTRAD). Dostępne są w nim 
następujące komendy manipulujące zbiorami i funkcje: 

LOAD "nazwa zbioru” 

RUN "nazwa zbioru” 

SAVE "nazwa zbioru 

CHAIN "nazwa zbioru 

MERGE "nazwa zbioru” 

CHAIN MERGE "nazwa zbioru” 

OPENIN "nazwa zbioru” 

OPFNOUT "nazwa zbioru” 

CLOSEIN 

CLOSEOUT 

CAT 

EOF 

INPUT 4 9 

LINE INPUT Ż9 

LIST 8 

PRINT 9 

WRITE +9 


Dodatkowo AMSDOS zapewnia kilka dodatkowych komend 
administrujących dyskiem, 

Polecenia te zwane są "komendami zewnętrznymi” i oznaczane 
są przez znak | . 


Kilka popularniejszych komend zewnętrznych, które będą 
z pewnością używane to: 
|a 
Ib 
|tape (która to komenda dzieli się na |tepe in i|tape.out) 
[disc (dzieli się na|disc.in 1 |disc.out) 


N 
pa 


Komendy la i |b użysane są w cystemuch o Śwu napędzch 
dyskowych w celu poinstruowania komputero » t':, "tórego napedu 
dotyczy następna operacja dyskowa. 

wprowadzenie dla przykładu 

|a 

load "nazwa zbioru" 
mówi komputerowi, aby załadował vodanv proeram 4 "v8hu 
w napędzie A. 

Jeżeli żadna z komend |a 1 |b nie zostnie wprowadzona, 
lub komputer jest wyzerowany - system nrzyjnuje, że komrndy 
dotyczą napędu A. 

Jeżeli używasz jedynie wbudowanszo napędu cysk'w, to na- 
leży go traktować jako naoęd A, a komendy |a 1 ib nia po- 
winny być wydawane. Wprowadzenie komendy |b bez podłączonego 
zewnętrznego napędu doprowadzi do pojawienia się komunikatu 
o błędzie: 

Drive B: disc missinz 

Retry, Ignore or Cancel 
na który należy odpowiedzieć naciskając C (Cancel - skasuj 
komendę). 


A co, jeżeli zechcę nżyć kasety” ... 


Polecenie |tapc tnformuje komputer, że wszystkie operacie 
tynu ładowania i zaptsywania mają działać nie na dysk, lecz 
na zewnętrzny maunetofon. Tak długo, dopóki nie wprowadzimy 
komendy |tape, wszystkie operacje na zhiorach odwoływać się 
hędą co dysku. 

Aby powrócić do przcy z dyskiem no komendzie tape 
należy wprowadzić 

|dise 

Czasami noże zajść notrzeta załadowania orożramu 7 kasety 
1 zapamiętaniu go na dysku, Można w taki wypadku użyć polecenia 

|tape.in 

Nakazuje to komputerowi czytać dane z taśmy, nie zmienia 
jednak operacji zapisu; będzie on dokonywany na dysk. 


Podobnie, aby odczyt dokonywany był z dyszu a zapis 
odbysał się na taśmę, należy wprowadzić |disc.in -— aby skaso- 
wać uprzednią komendę |tape.in - a potem napisać |tape.out 
po to, ahy komputer zapisywał na taśmę. 

Można zauważyć, że polecenia tape. 1n oraz |taps .out 
wyłączają działanie poleceń |d1sc.in 1 |aiso.out - i na odwrót, 

Dalsze informacja na temat ukierunkowywania przepływu da- 
nych do/z (1 kasety) znajdują się w rozdziałach zatytułowanych 
"Używanie dysków i kasst" oraz "AMSDOS t CP/M" 


Kopiowanie programów pomiędzy dyskami (1 kasetami) 


W części 7 tego Kursu Podstawowego dowiedziałeś się, w jaki 
sposób sformatować czystą dyskietkę przy pomocy programu 
DISKIT3 ze strony 1 pakietu dysków systemowych CP/M. Dowiedzia- 
łeś się również, jak skopiować program z jednego dysku na druzi. 
Teraz, przy pomocy poleceń 
ttzpe |disc |tape.in |tape.out |disc.tn |diso.out |a Ib 
będziesz mógł dokonać ładowania i zapisywania zbiorów z dysku 
umieszczonego albo w napędzie A, albo B (jeżeli ma to zasto- 
sowanie) i z kasety (jeżeli ma to sens). 

Inne komendy zewnętrzne: 

|dir |drive |eva |ren  |user 
opisane są w dalszym ciągu wykładu, w rozdziale "AMSDOS i CP/M" 


Kopiowanie całego dysku 


Cała zawartość dysku może być skopiowana na inny dysk 
przy pomocy programu DISCKITI3 ze strony 1 pakietu dysków 
systemowych CP/M. 
* ten sposób można wykonać kopię samych dysków systemowych. 
Wprowadź stronę 1 pakietu do napędu w komputerze ti napisz 
|cpm 
Po ukazaniu się AD napisz 
disckit?3 
Po kilku sekundach zobaczysz na środku ekranu nagłówek progranu 
LISC KIT oraz napis 
Gne drive found 
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Informacje” te oznaczają, że działa program DISC KIT 
oraz że komputer stwierdził, że pracujesz z jednym napędem 
dyskowym (tym wbudowanym do komputera). 

Jeżeli podłączyłeś do komputera dodatkowy napęd to 
napis będzie następujący: 

Two drives found 
Na dole ekranu zobaczysz co następuje: 


Copy 1 
Format 4 
verify 1 


Exit from program 9 


("Kopiuj, Formatu, Weryfikuj, Wyjdź z programu"). 

Jest to tzw. "menu" główne prozramu DISC KIT. Numerki 
w ramkach odpowiadają numerom klawiszy funkcyjnych na bocznej 
klawiaturze (po prawej stronie) - oznaczonym ff, fi, f4, i (7. 
Naciskając jeden z tych klawiszy dokonujesz wyboru funkcji wy- 
konywanej przez program. Zwróć uwagę, że naciśnięcie klawisza 
o numerze f na tym etapie działania programu spowoduje powrót 
do trybu oczekiwania na komendę systemu CP/M (znaki AD). 
Ponieważ pragniemy skopiować dysk - naciśnijmy klawisz funkcyj- 
ny O numerze 7 (£T). 


OSTRZEŻENIE 


Kopiowanie na uprzednio zapisany dysk wymaże jego starą 
zawartość 


Kopiowanie w systemie z 1 napędem 


Przyjmując, że używasz jednego napędu (tzn. NIE podłączyłeś 
dodatkowej stacji dysków), napis który zobaczysz będzie 
następujący: 

Y Copy 

Any other key to exit menu 


("Kopiuj","Jakikolwiek inny klarisz w celu wyjścia do menu”). 
W.tej chwili należy wyjąć dysk systemowy CP/M ti włożyć dysk, 
który pragniesz. skopiować. Jeżeli chcesz skopiować sam dysk 
systemowy, to pozostaw go w napędzie. 
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Gdy dysk, z którego odbyrać się hęczi: kopiowenie jest 
już w napędzie, naciśnij Y (Y - jako skrót od Yes - tak) - co 
oznaczi: "jedz dalej 1 kopiuj dysk", 

Format v jakim zapiszny jest cysk zostanie na wstępie zba- 
dany, a olpowiećnić infotrecjz pojawi się na górze ekranu. 

Po chwili zobaczysz napis: 

Insert disc to WRITF 

Press any key to cintinue 
("Wprowodź dysk do zanisu, neciśnij dowolny klawisz w celu 
kontynuowania"). © tym momencie należy vyjąć cysk z napędu 
i zastąpić co dyskien na który chcemy zanisać dane; n*estęp= 
nie nactenać jakikolwiek klawisz. 

Na gorze sekrenu pojawi stę inforr:cje o formrcie, w jakim 
zapisany zostanie novy Cysk nawet, jeżeli kopiujemy ne nową 
dyskietkę. 

Jeżeli dysk na który ochywa się kopiovenie nic jest 
sfornatowany luh sforn:tovzr; jest błędnie, to na ekranie po- 
jawi się napis (taki, luh podołny w zależności od dysku 
źródłowego): 

Didc isn't forrutted (or faulty) 

Goinu to format while copyine 

risc will be system formiu:t 


co oznacza, że formitowznie bęczie miało riejsce noćczas 
kopiowania, 

Kiedy ju> komputer sotów jest do odczytania porcji infor- 
macji z cystu źródłowego, to wyświetlony zostanie napis: 

Insert disc to EUAT 

»ress any key to continue 
i wtedy należy z powrotem umieścić w napędzie dysk z ktćrego 
kopiujemy. 

Po kilkukrotnym poutórzeniu tych operacji cała zarartość 
dysku źródłoweso zostanie przepisano na nowy dysk a napis 

Copy conpleteń 

hemove fisc 

Press any key to continue 
poinformuje, że koniovenie dysku jest zekończone, nalezy 
opróżnić nipęć i nacisnąć dnwolny klswisz, Nożna n"stępnie 
skapiosać nastęvna strnhę cCyshu (necjstając klarisz y) 1ubh 


nrznejść co złówneia "nenu" proeramu | ISC KIT. 
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Zabezpieczenie przed zapisem 


Należy zwrócić uwagę, że nie można kopiować na dysk, któ- 
rego otwór zabezpieczający przed zapisem jest otwarty, Każda 
próba kopiowania na taki dysk da rezultat w postaci napisu 

Disc write-protected 

Insert disc to write 

R-etry or C-ancel 
po ukazaniu się którego należy nacisnąć klawisz C, wyjąć dysk 
i włożyć nowy dysk z zamkniętym otworem zabezpieczającym. 
Dopilnuj, aby otwory na dyskach zawierających ważne programy 
nigdy nie były zamknięte. W szczególności NIGDY nie należy zasła- 
niać tych otworów na wzorcowych dyskach systemowych CP/M. 


Kopiowanie w systemie z dwoma napędami 


Należy kierować się nowyższymi wskazówkami i załadować 
program DISC KIT3 ze strony 1, a następnie wybrać funkcję COPY 
poprzez naciśnięcie klawisza f7 

W tym miejscu na ekranie pojawi się dalsze "menu" 


Read from A: 
Read from R: 
Exit menu 2 


("Czytaj z A:", *Czytaj z B:","wyjdź z menu"). 

Kopiowanie w systemie z dwoma napędami oznacza, że nie trzeba 
ciąmle nowtarzeć operacji wymiany dysków, Powyższe menu pozwala 
wybrać nenęd co którego włożony będzie cysk źrócłowy. Naciśnij 
f8 w celu kopiowania z cysku w napędzie A: 

Zostanie wtedy wyświetlone trzecie menu: 


Vrite to A: 9 
krite to R: 6 
Exit menu 3 
("Pisz na A:", "Pisz na R:", "wyjdź z menu"), Menu to nozwala 


na wybranie napędu, w którym znajdować się będzie dysk przezna- 
czony da 7unisu, Lożesz, jeżeli tylko chcesz, wybrać napęd A:, 


76 


ale oznaczeć to będzie potrzebę ciącłego wymieniania dysków 
i nie odniesiesz żadnej korzyści z nosiadania systemu 
z 2 napędami. 

Dla wygody 1 z uwagi na szybkość kopiowania należy wybrać 
napęd B:, naciskając klawisz f6. 

Teraz należy umieścić oba dyski we właściwych napędach 
1 nacisnąć klawisz X - sycnał do rozpoczęcia kopiowania. 

I znów na ekranie pojawi się infornecja o formacie obydwu 
dysków, a jeżeli dysk docelowy jest sformatowany błędnie (lub 
w ozóle nie jest) to dokona się formatowanie podczas kopiowania, 

Po zakończonym kopiowaniu na ekranie pojawi się nastę- 
pujący napis 

Copy completed 

Remove both discs 

Press any key to continue 
po czym należy wyjąć OBA dyski, zanim podejmie się jkkiekolwiek 
inne działanie. Następnie można powtórzyć operację kopiowania 
przez wciśnięcie klawisza Y, luh przejść do głównego menu 
procramu LISC KIT naciskając jakikolwiek inny klawisz. 


weryfikacja dysków 


Program DISCKIT3 pozwala również na weryfikowanie (spraw- 
dzanie) dysku. 

Na ekranie wyświetlana jest informacja o formacie dysku, 
czytane są wszystkie zbiory na dysku i w wypadku znalezienia 
hłęcu odpowiednie infornzcje pojawia się na ekranie. 

Aby zweryfikować dysk należy do nanędu włożyć dysk syste- 
mowy oznaczony cyfrĄ 1 1 napisać 

|epz 
Po pojanieniu się znaków AD , napisz 

disckit3 

Vybierz opcję Verify z głównego menu (klawisz fi) a następ- 
nie kieruj się wskaz*nkami na ekranie. 

Jeżeli pracujesz 7 systemem o 2 napędach, to będziesz 
mócł ryhrać, czy uweryfikowniu poclegać będzie dysk w napędzie 
A czy B. 
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hied już we wła wym napędzie znajdzie się odpowiedni 
dysk nacisni Y ab: zanoczątkować proces weryfikacji. 
s nczonym sprawdzaniu na ekranie ukaże się: 
r.f cromple:-d 
mo e 
Vv es any k " © co'tinue 
Jeeli oracujesz w systemie z 2 napędami to należy wyjąć 
oh dyski Trzeba to zrobić przed jakąkolwiek inną czynnością. 
h «+ «as pnie powtórzyć proces naciskając Y luh przejść do 
złówne ro menu naciskając dowolny, inny klawisz. 


Jżywanie programu DISC KIT pod CP/M 2.2 


Jeżeli zechcesz sformatować lub zweryfikować dyski zapi- 
sane na lub dla CPC 664 luh CPC 464+DDI1 (oha te zestawy używają 
CP/M 2,2), na stronie 4 pakietu dysków systemowych dołączono 
program [ISC KIT. Nazywa się on DISCKIT2 i działa w ten sem 
sposób jak powyżej opisany IISCKIT3. 

Aby uruchomić DISCKIT2 należy użyć strony 4 pakietu dysków 
Systemowych i napisać 

|cpm 

Po ukazaniu się "nagłówka" CP/M 2,2 i znaków gotowości 4> 
nanisz 

disckit2 
Od tej chwili po prostu rybierz odpowiednią opcję z "menu" i po- 
Stęnuj zgodnie ze wskazówkami na ekranie tak, jak w pro:ramie 
IISCKIT3. 

UrAGA: Program [ISCKIT2 podczas kopiowania używa ohszaru pamięci 
ekranu do przechowywania danych. Podczas kopiowania zohaczysz 
zatem na ekranie losowe wzory. 


Dalsze informa je 


Dalsze infornecje o sposohie użysania nro.£ramów znajdują- 
cych się na rzorcnwych dvskac!: CP/M będą podane w dalszej części 
noćręcznika » 

Na koniec unewnij się, że zastosowałeś się do ostrzeżeń 

podanych na poczatku podręcznika,w sekcjizatytułowanej WAŻNE 

twagi o instalacji %,6,7 

twagi o obsłudze 1,2,1,4,%,6,7,9 
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Część 11: Wprowadzamy program "Bank Menager" ... 


Używanie drugich 64 KB pamięci 


CPC zawiera 128 KB pamięci RAM (landom Access Memory - pa- 
mięć o swobodnym dostępie, do zapisu i odczytu informacji) 
w dwóch częściach po 64 KB. CP/M Plus używa cały czas pełnych 
128 KB, lecz BASIC normalnie nie używa drugich 64 KB - dyspo- 
nuje tylko pamięcią w pierwszych 64 KB. Byłohy żal zostawić 
dodatkowe 64 KB pamięci zupełnie nieużywane przy programowaniu 
w języku BASIC, a zatem dostarczono program umożliwiający 
w szczególnych przypadkach korzystanie z tej dodatkowej pamięci. 
Program ten oferuje kilka dodatkowych rozkazów za pomocą których 
można wykorzystać drugie 64 KB RAM do przechowywania obrazów 
ekranu lub jako przestrzeń dg przechowywania ciągów tekstowych. 

Program worowadzający takie dodatkowe rozkazy został nazwa 
ny "BANK MINAGFR", gdyż "bank" jest terminem technicznym stoso- 
wanym do określenia zespołu pamięci. 


Zastosowanie programu "BANK MENAGER" do przechowywania 
obrazów ekranu 


6128 wyświetla obraz na ekranie przez cały czas. Do tego 
celu używa 16 KB pamięci w której przechowywane są informacje 
o kolorze i jasności każdego pojedynczego punktu ekranu. 

Pamięć 6128 ma możliwość jednoczesnego przechowyrania do 6 obra- 
zów ekranu (każdy w osobnym bloku 16 KB). BANK MENAGFR wprowadza 
udogodnienia pozwalające w języku BASIC na swobodne żonglowa- 
nie pięcioma z sześciu możliwych obrazów ekranu. 

Bezpośrednio po włączeniu komputera obraz na ekranie jest 
wyświetlany z 16 KB hloku pamięci (który będziemy nazywać 
"*Blokiem 1"), wydzielonego z. pierwszych 64 KB. Pozostałe 
cztery obrazy ekranu są przechowywane w drugich 64 KB pamięci, 

w blokach nazywanych Blok 2, Blok 3, Blok 4 i Blok 5, 

Tylko Blok i (z pierwszych 64 KB) może być wyświ e- 
tlany na ekranie, Aby zobaczyć obrazy prze- 
chowywane w drucich 64 KB (Bloki 2 do 5) należy przenieść 
żądany obraz do Bloku 1. BANK MFNAGFR wprowadza wszystkie rozkazy 
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potrzebne do nrzenoszenia obrazów jak SCRFENCOPY, który po 
prostu przenosi treść obrazu do innego bloku i  SCREENSWAP, 
który wymienia zawartość dwóch obrazów. 

Podobnie jak rozkazy AMSDOS, omówione wcześniej w tym 
rozdziale, BANK MENAGER używa "rozkazów zewnętrznych", które 
rozpoczynają się od symbolu kreski | (uzyskiwanego przez na- 
ciśnięcie [SHIFT]Q9 |). 


Jak używać BANK MENAGER 


Wyzeruj komputer za pomocą [CONTROL] [SHIFT] [Fsc] a następ- 
nie wprowadź Stronę 1 ze swojego pakietu dysków systemowych 
i napisz: 
RUN "BANKMAN" 
Procedura ładowania jest szczegółowo opisana w części 13 Roz- 
działu 7, dotyczącej rozszerzeń systemu rezydendnego (RSX) 
i byłoby korzystnie rozumieć nieco technikę RSX i sposoby re- 
zerwowania obszarów pamięci przed użyciem tych procedur w Twoich 
programach. Jednakże do wypróbowania poniższych przykładów nie 
musisz wiele wiedzieć o procedurze ładowania. 
Napisz: 
MODE 1 
PRINT "TO JEST ORYGINALNY EKRAN" 
|SCREENSWAP,1,2 
Tekst zniknie, a zamiast niego będziesz oglądał to, co schowano 
wcześniej jako Fkran 2 (w Bloku 2), Jeśli komputer został przed 
chwilą rłączony, będzie to prawdopodobnie abstrakcyjny, losowy 
wytworzony wzór. Aby usunąć ten wzór, wprowadź: 
MODE 1 
a następnie: 
PRINT "TO JEST EKRAN 2" 
|SCREENSWAP, 1,2 
Pojawia się znowu Twój oryginalny tekst. Jeśli teraz powtó- 
rzysz polecenie |SCREENSWAP,1,2 możesz zobaczyć, że wymieniona 
hędzie zawartość dwóch ekranów, Możesz wymienić (SWAP) zawartość 
dowolnych z nięciu ekranów, jednakże miej na uwadze, że tylko gdy 
dokonujesz wymiany obejmującej Ekran 1, zmienia się treść 
wyświetlana na ekranie. 
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Innym dostępnym teraz rozkazem jest |SCRFENCOPY. Powoduje 
on kopiowanie jednego ekranu w miejsce innego, zast>pując tam 
starą treść nowym ohrazem. 

Pprowadź: 

MODF 1 

PRINT "TO JEST EKRAN DO KOPIOWANIA 

JSCRFE-C sY.2,1 
Zawartość "kran: 1 jest kopiowana do tkrann 2, Jeżeli odwrócisz 
parametry i nan:s :sz: 

MODF 1 

|SCREFNCCPY,1.2 
treść aktualni" wyświet!ana na ekrarie zost nie zastąpiona 
zawartością Ekravu 2, 

Pierwszy p-rametr określa ekran, vo któremo nes ępuje 
kopiowanie, dru": parame:ir oznacza ekran 7 ktorego kopiuje się 
+reść 

Przy kopiowaniu ekran 'w można otrzynić "nszarpany, hez= 
ładny obraz jeżeli różne Są parametry MOLE ekranów luh edy 
wyświetla:sy ohraz został "zrolowany" po ostatnim poleceni: 
MODE. Instrukcje ekranowe procramu BANK MENAGER są przeznac une 
do stosowania złównie do ekranów graficznych (obrazkowych) a nie 
tekstowych, a w przypadku «iran w graficznych rolowanie ekranu 
nie jest stosowane. 


Używanie prosramu BANK MFNACER do przechowywania ciągów 
tekstowych 


BANK MENAGER wprovadza salsa cztery rozkazy, które umoż- 
liwiają użycie dodatkowych 64 KB pamięci do przechowywania 
zmiennych tekstowy'h. 

Większość programów może być podzielona na dwie części: 
pierwsza zwiera akt ialne instrukcje prozramu a druga to dane, 
używane n:zez program. Dobrym nrzykłedem takiego podziału jest 
prorram obsłuei bhezy tanych jak np. książka adresowa, Program 
t«ki mgzłhy używać tahlic ciągów tekstowych do przechowywania 
rszwisk 1 adresów ludzi umieszczonych " książce. 

Tdaci teistowa mozą hyć przechow: *ane w druwich 64 KB 


pamry:i, b'spriźre*rio jeden za druzim. P-mięć, w której ciągi 
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są przechowywane może być dzielona na przedziały, nazywane 
rekordami . lekord musi mieć określoną stałą długość od 2 do 
255 znaków, chociaż długość ciącu w języku BASIC zmienia się 
zależnie od jego zawartości, Celem stosowania rekordów jest 
wprowadzenie przedziałów o standardowych rozmiarach, podobnych 
do zespołu klatek dla gołębi, w których przechowywana jest 
jednostkowa część zawartości ciągu. Po każdej operacji zapisu 
lub pobrania danych z rekordu automatycznie jest przeprowadzane 
przesunięcie do następnego rekordu, gotowego do następnej ope- 
racji. Rekord przygotowany w ten sposób do kolejnej operacji 
nazywany jest "rekordem bieżącym" 1 jest używany automatycznie 
jeżeli nie zostanie wyspecyfikowany inny rekord. 

Taki snosób gospodarowania pamięcią tworzy strukturę na- 
zywaną "dyskiem typu RAM", gdyż struktura taka działa w po- 
dobny sn0sób jak system dyskowy o swobodnym dostępie, używając 
tylko pamięci RAM zamiast dysku, 

Przeczytaj poniższe opisy różnych rozkazów,tak, abyś ro- 
umiał, do czego poszczególne rozkazy służą, nawet gdybyś 
nie wiedział jak je użyć, a następnie wypróbuj podane przykłady. 

Pierwszym rozkazem operującym z "dyskiem typu RAM" jest 
|RANKOPEN. Określa on ile znaków ciągu tekstowego zawierać 
noże każdy rekord. Składnia tego rozkazu jest następująca: 

| BAXKOPEN „n 
gdzie n jest liczbą określającą liczhę znaków w rekordzie. 
łartość n może leżeć w zakresie od O do 255, lecz wartości 
011 mouą powodorać dziwne efekty. 

|BANKWRITE zapisuje ciąz do bieżącego rekordu. Wskaźnik 
bieżącego rekordu jest następnie zwiększany o 1 tak aby wska- 
2ysał następny rekord za rekordem właśnie zapisanym, gotów do 
następnej operacji. Składnia tezo rozkazu jest następująca: 

|BxUkvRITF, ró, ab 
lub 

|B"NKWKITE O ró af n 
dzie r% jest zmienną tynu liczby całkowitej do której wpi- 
sywany jest kod inforuujący o poprawności wykonania operacji 
a ał j?st zmienną tekstos), zawierającą znoki wnisywane do 


rekardu., VW nierwszyn z twa srzykłodów rekord jest rekordem 
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bieżącym. W drugim przykładzie opcjonalny parametr n określa 
rekord, do którego następuje wpisywanie. 

|BANKREAD czyta bieżący rekord i wstawia jego zawartość 
do określonej zmiennej tekstowej. Wskaźnik rekordu bieżącego 
feat następnie zyiększany o 1 tak aby wskazywał następny rekord, 
bezpośrednio za rekordem właśnie odczytanym, gotowy do następnej 
operacji. Odczytanie rekordu nie zmienia jego zawartości tak, 
że rekord może być czytany powtórnie wiele razy. Składnia roż- 
kazu |BANKREAD jest następująca: 

BANKREAD ,3r%,a$ 
lub: 

|BANKREAD ,J r4, ab „n 
gdzie r% jest zmienną typu liczby całkowitej do której wpi- 
sywany jest kod informujący o poprawności wykonania operacji 
a aż jest zmienną tekstową do której wpisywana jest odczyty- 
wana zawartość rekordu. W pierwszym z dwu przykładów rekord 
jest rekordem bieżącym, W drugim przykładzie opcjonalny para- 
metr n określa rekord który ma być odczytany. 

Ostatnim rozkazem tego typu jest |BANKFIND. Rozkaz ten 
powoduje przeszukiwanie rekordów w celu znalezienia okreńlo- 
nego ciągu tekstowego. Jeżeli ciąg zostanie znaleziony, poda- 
wany jest numer rekordu w którym znajduje się zadany ciąg. Skład- 
nia tego rozkazu jest następująca: 

|BANKPTND ,2 rm,aż 
lub: 

|BANKFIND ,Qr% ,a$ ,n 
lub 

|BANKF IND ,9r%,a$ ,n,m 
gdzie r% jest zmienną typu liczby całkowitej do której wpi- 
sywany jest numer rekordu w którym znaleziono zadany ciąg lub 
kod wskazujący, że ciągu nie znaleziono a aż jest szukanym 
ciągiem. Opcjonalny parametr n podaje numer rekordu od którego 
zaczyna się poszukiwanie. Jeżeli n jest pominięte, przeszu- 
kiwanie rozpoczyna się od hieżącego rekordu, Drugi parametr 
opcjonalny m określa numer rekordu w którym kończy się poszu- 
kiwanie nawet jeżeli nie zostanie jeszcze znaleziony odpo- 
wiednikil Jeżeli m jest pominięte, poszukiwanie kontynuowane 
jest przez całe 64 KB, co może wykraczać poza koniec wpisanych 
danych. 
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A teraz wypróbuj to w działaniu. Jeżeli masz już wprowa- 
dzony program BĄNK MFNAGFR, gdyż przyglądałeś się działaniu 
rozkazów wymiany ekranu i od tego czasu nie zerowałeś kompu- 
tera to omawiane wyżej rozkazy rezydują już w pamięci kompu- 
tera. Jeżeli nie, to wprowadź Stronę 1 ze swojego pakietu 
dysków systemowych i napisz: 

RUN "BANKMAN" 

Następnie napisz: 

| BANKOPEN ,29 
Określa to długość rekordu o wartości 20 znaków i ustawia 
bieżący numer rekordu równy O. 

Teraz napisz: 

a$ = "PIERWSZY ZAPIS" + SPACF$(6) 
co wpisuje do zmiennej aS dokładnie 20 znaków, 
Następnie wprowadź: 

r = © 
aby zainicjalizować zmienną r%. 

Z kolei napisz: 

|BANKWRITE ,dr%,a$ 
Powinno to zapisać aS do nierwszeso rekordu (rekord f). 

Teraz napisz: 

d$=SPACEŚ(29) 

| BANKRFAD 3 ró,a$,g 

PRINT d$ 

Pierwszy rozkaz wprowadza zmienną aż, zawierającą 20 spacji. 
Stwarza to wystarczające miejsce aby pomieścić zawartość rekordu 
kiedy zostanie odczytany. LDLruzi rozkaz czyta rekord numer O 
i wprowadza rezultat do G$. Ponieważ bieżący numer rekordu zos- 
tał przesunięty do rekordu i (przez noprzednią operację 
|BANKWRITE), konieczne jest określenie rekordu O jako rekordu 
do czytania, Pamiętaj - jeżeli numer rekordu nie jest wyspecy= 
fikowany, czytany jest bieżący rekord. Na koniec wyświetlany 
jest rezultat operacji czytania. Zatem zmienna at powinna 
zawierać PIERWSZY ZAPIS 1 6 apacji. 

A teraz nepiszzi 

bf = "DWA + SPACE$(17) 

c$ = "TRZY + SPACEŚ( 16) 

|BANKWRITE „dr%,b$,1 

|BANKWRITE,gr<,cS 


Wpisuje to b$ i c$ do rekordów 1 i 2, Znowu użyto parametru 
opcjonalnego w pierwszym BANKWRITE, aby określić rekord 1 
jako rekord, do którego wpisuje się b$. Bieżący numer rekordu 
jest następnie przesuwany do następnego rekordu tak, że 
niepotrzebne było specyfikowanie do którego rekordu należy 
wpisać c$ - zmienna ta zostanie automatycznie wpisana do re- 
kordu 2. 

Napisz: 

PRINT r% 
fyświetla to wartość r%, która po wykonanym przykładzie powinna 
vyć równa 2, Liczba ta może być interpretorana jako numer rekordu 
; którym prowadzono ostatnią operację lub jako numer rekordu 
sieżącego minus jeden. W powyższym przykładzie ostatnia operacja 
»rowadzona była z rekordem 2 a następnym rekordem jest 3. 

Celem takiego "kodu powrotnego" jest dostarczanie infor- 
nacji o właśnie przeprowedzonej operacji. Po pomyślnie zakończo- 
nej operacji "kod powrotny" powinien mieć wartość dodatnią, 
wskazującą numer rekordu; operacja zakończona nieprawidłowo po- 
woduje wpisanie liczby ujemnej reprezentującej kod błędu, Po 
operacjach BANKWRITE 1 BANKRFAD otrzymać można dwie wartości 
kodu hłędu: 

-1 Wskazuje na osiągnięcie końca zbioru, Zdarza się gdy 
zużyte zostały wszystkie rekordy luh wyspecyfikoweno 
rekord który nie istnieje 

-2 Sygnalizuje hłąd przełączania banku. Błąd taki nie 
powinien nigdy rystąpić. 

Wypróbuj teraz dalsze przykłady: 

d$ = STRING$(29,"X") 

| BANKOPFN ,29 

FOR n=1i to 3: BANKWRITE, r%,d$:NEXT 
Wprowadza to zmienną d$, zawierającą 20 znaków X. 
|BANKOPFN zeruje wskaźnik rekordu bieżącego a rozkaz 
|BANKWRITF wpisuje ab do rekordów 0, 1 i 2 w miejsce poprzed- 
niej zawartości tych rekordów. 

Teraz napisz: 

a$ = "PIFRWSZY" 

|BANKWEITE, ró,a$,g 
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*pisuje to słowo "PIFRYSZY" do rekordu O w miejsce niektórych 
znaków X. Rypełń teraz zmienną dł spacjami: 

d$ = SPACF$(20) 

i napisz: 

|BANKREAD,Or%,d$,9 
Wczytałeś rekord f z powrotem do d$. 

Przypomnijmy sobie tok postępowania: 

Wszystkie trzy rekordy wypełnione zostały X-ami. Do rekor- 
du O dodano słowo "PIERWSZY"; d$ wypełniono spacjami i na koniec 
odczytano rekord O do c$. Napisz zatem: 

PRINT db ' 

W wyniku powinieneś otrzymać "PIERWSZYXXXXXXXXXXXX" 

Ilustruje to ważną właściwość omawianych tutaj rozkazów, Jeżeli 
ciąz umieszczany w rekordzie nie zapełnia rekordu całkowicie, 
pozostają w nim stare znaki, które nie zostały zastąpione no- 
wymi. Jest zatem wskazane ahy przed zapisaniem świeżej infor- 
macji do rekordu wypełnić go najpierw spacjami aluo znakumi 
cHR$(32). Unika się w ten sposób stwierdzenia, że w odczytenyu 
z powrotem ciągu znajdują się znaki, które nie powinny « nim 
już występować. Te same rozważania dotyczą zmiennej tekstowej 
do której rekord jest wczytywany. Jeżeli zmienna tekstowa jest 
dłuższa od długości rekordu to na końcu tej zmiennej pozostaną 
niezmienione znaki. Z tego powocu czyściliśmy (wypełnialiśmy 
spacjami) zmienną a$ przed odczytaniem do niej rekordu 0, 

Jest możliwe wpisanie ciągu tekstowego do rekordu, który 
jest zbyt krótki aby pomieścić cały ciąg. Jeżeli to nastąpi, 
nadmiarowe znaki zostaną zignorowane (pominięte). 

Jest również możliwe odczytanie długiego rekordu do krótkiej 
zmiennej tekstowej 1 także w tym przypadku zostaną zignorowane 
nadmiarowe znaki (odczytywane z rekordu). Przy normalnych opc- 
racjach ze zmiennymi tekstowymi BASIC mógłby automatycznie roz- 
ciągnąć zmienną tekstową tak aby zmieścić naćmiarowe znaki, nie 
może to jednak nastąpić nrzy wykonywsniu rozkazów zewnętrznych. 

Na koniec rozkaz |BANKFIND. Umożliwie on przeszukiwanie 
rekordów w celu znalezienie określonego etekstu. Na przytkłać, 
jeśli rekord nurer 24 zaczyna się od słowa "FRUL", może to hyc 
znalezione za pormocą polecenie: 

|PANKFINL O r=,"FRED" 
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Jest to szczególnie użyteczne w programach obsługi bazy danych 
w których np. wyszukiwane są nazwiske lub adresy. 

|BANKFIND zaczyna od bi-zącego rekordu 1 prowadzi swoje 
działania poprzez kolejne rekordy aż do znalezienia szukanego 
ciącu tekstorego luh do korca drugich 64 KB pamięci, w których 
rekordy seą przechowywane. 

Można określić numer rekordu od którego rozpoczyna się po- 
szukiwania przez dołączenie numeru rekordu na końcu rozkazu. 
Można ponadto dołączyć jeszcze jeden numer rekordu, umieszczony 
po numerze rekordu początkowego, aby określić rekorć, na którym 
kończą się poszukiwania. 

|BANKFIND może być użyty do wyszukiwania ciągu tekstowego, 
który nie leży na początku rekordu. W takim przypadku należy 
umieścić znaki CHR$(9) przed znaczącymi znakami poszukiwanego 
ciągu. Znaki CIIR$(9) są traktowene jako znaki zastępcze (jak ? 
w nazwach zbiorów w systemie CP/M) co oznacza, że znaki te są 
liczone jako "jakikolwiek znak”, Jako przykład powyższego może 
służyć: 

ał$ = STRING$(198,9)+"FRED" 

|BANKFIND,Qr%,a$,f . 

Powinno się w ten sposób znaleźć słowo "FRED" umieszczone od 
pozycji jedenastego do pozycji czternastego znaku rekordu. 
Pierwsze dziesięć znaków może zawierać numer telefonu lub jakieś 
inne informacje, które będą ignorowane przez BANKFIND. 

W przypadku znalezienia słowa "FRED" pod zmienną r% 
podstawiany jest numer rekordu w który znaleziono zadany tekst, 
w przeciwnym przypadku podstawiany jest kod powrotny o wartoś- 
ci -3. 


Dalsze szczegóły ... 


Dalsze informcje o prozramie BANK MENAGER można znaleźć 
w Rozdziale £; mógłbyś także przestudiować część 13 i 14 Roz- 
działu 7, zdzie opisano zaradnienia związane z zastosowaniem 
RSX-ów. 

Na koniec upewnij się czy zastosowałeś się do następujących 
ostrzeżeń podanych na początku tego nodręcznika w części zaty- 
tułowanej "WAŻNE": 


Uwagi o ohsłudze 1,2,3,9 
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Kończy 16 ii część "Kursu yvdztawowęego" posłuriwania się 
CPC 6128. Teraz bowinieneś już wiedzieć jakie jest działanie 
większości klawiszy klzwiatury, jax używać pewne najprostsze 
rozkazy BASIC, jak formatonać fabryczuie nowy dysk tak aby był 
gotów do użycia i jak wytonać pewne najherdziej elementarne 
operacje dyskowe: wprowadzanie (LOAD). | zapisywanie (SAVE) 
zbiorów, odczytywanie sk. vow.dzu (CAT) i kilka rozkazów AMSLOS, 
CP/M 1 BANK MENAGER. 

W następnych rozdziałach znajdziesz bardziej specjalizo- 
wany opis niektórych zanadujeń technix* komputerowej i języka 
MISTRAD BASIC. Jest tam także szerszy opis posługiwania sie 
dyskami i systemów AMSDOS oraz CP/M a ponadto możesz wejść 
w dziedzinę nowego języka - Dr. LOGO firmy Dieital Research. 

Powodzenia i przyjemnego czytania! 
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ROZDZIAŁ 2 
PO KURSIE PODSTAWOWYM '... 


Przeczytełeś już Rozdział 1 i masz przed sobą włączony 
komputer. Nauczyłeś się już jak kazać mu powtarzać zadaną 
operację kilka razy za nomocą pętli FOR NEXT i jak sprawdzać 
IF (czy) warunek jest spełniony, a jeżeli - THEN (wtedy) wyko- 
nyrać określoną czynność, 

Jesteś już chyba zmęczony oglądaniem swojego imienia wy- 
świetlanego na całym ekranie i chciałbyś rozpocząć poważną 
pracę z komputerem - zrobić coś użytecznego lub zabawnego, 

LI rozdziale nestępnym jest do Twojej dyspozycji wykaz wszyst- 
kich słów kluczowych języka AKSTRAD BASIC łącznie z opisem 
składni (syntaktyict) i wyjsśnieniem do czego ich używać, Po 
uzbrojeniu w tę listę, zakres tego, co możesz kazać kompute- 
rowi wykonać jest ozreniczony tylko przez Twoją wyobraźnię. 

Jeżeli nie użyrałeś nigdy przedtem komputera, myśl o roz- 
poczęciu "prorramowania" może napełnić Cię obawami. Nie przej- 
muj się! To jest znacznie łatwiejsze niż myślisz, a na pewno 
znacznie łatwiejsze niż.technologia i żargon, któremu musiał- 
byś zawierzyć. Myśl o języku BASIC nie jak o nowym sztucznym 
języku, lecz jak o odmianie języka angielskiego z niektórymi 
słowemi skróconymi dla przyspieszenia komunikowania, Innymi 
słowy nie myśl np. o CLS jak o magicznym kodzie 3-literowym, 
lecz pomyśl sobie Clear Screen -— wyczyść ekran. 

Próbuj nie bać się języka BASIC a szybko znajdziesz zado- 
wolenie zarówno w sztuce prowranowania jak i wynikach swoich 
usiłowań. Programowanie może być barczo wdzięcznym ćwiczenień, 
zwłaszcza jeżeli jesteś początkującym w działaniach z kompute- 
rem i językiem. Stale pamiętaj, że jeżeli zapevnisz, że przypad- 
kowo nic nie zapiszesz na swoich głównych dyskach systemowych, 
nic co piszesz nie może uszkodzić komputera i w najrorszyr. 
przypadku będziesz musiał spróhować coś nowego. 


A zatem ad czern zecząć? 


Rozpoczęcie jest częste najtrudniejszą częścią programo- 
wanie Cla poczetkującero, Jronukże to, czego powinieneś neprewdę 


unikać, to LezmyŚślneco kju:' u się ned klerieturą, 
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Jedną z pierwszych rzeczy, jaką powinieneś ustalić jest 
co dokładnie chcesz aby program wykonywał i jak chcesz aby 
były przedstawiane C1 wyniki (innywi słowy, jak powinien wyglą- 
dać ekran po 'zapuszczeniu programu). 

Jeżeli zdecydowałeś już to, możesz rozpocząć pisanie pro- 
gramu spełniającego Twoje wymagania, cały czas myśląc jak za- 
pemnić aby program przebiegał gładko od początku do końca z si- 
nimalną liczbą obskoków, używających GOTO tu $ GOTO tam, Dobry 
program powinien być łatwy do nadążania za nim przy listowaniu 
1 nie powinien Cię doprowadzać do beznadziejnego zamętu w gło- 
wie, kiedy próbujesz znaleźć w nim błąd, czyli "de-bug'ować" 
(odpluskwiać) program, jak mówi się w żargonie komputerowym. 

Na szczęście, BASIC jest łatwo przebaczającym językiem 
1 często będzie Ci pemagał, wyświetlając na ekranie konunikaty 
o błędzie, jeżeli postąpisz źle. BASIC także umeżlfiria C1 
"reflektować się" i upychać nowe linie programu pemiędzy istnie- 
jące linie z minimalnym towarzyszącym temu zamieszaniem, 


Piszmy prosty program 


A zatem do roboty. Będziemy pisać program do przechowywa- 
nia wykazu nazwisk Twoich przyjaciół 1 ich numerów telefonów. 
Nazwiemy ten program "Książką telefoniczną". A teraz zastosujmy 
przytoczonę wyżej regułę: "Co program powinien robić?" 

1 "Jak powinny być przedstawiane rezultaty?" 

Załóżmy, że program powinten Ci umożliwić wprowadzenie, 
powiedzmy, do 100 nazwisk 1 numerów telefontcznych do przecho- 
wania. Jeżeli chcesz jakiś numer, powinieneś móc napisać nazwis- 
ko 1 otrzymać numer z powrotem. Dodatkowo, jeżeli nie jesteś pe- 
wien jak jakieś nazwiske zostało wprowaczone, powinieneś móc 
wyświetlić kompletną listę wszystkich informscji na ekranie. 
Zauważ przy okazji, że automatycznie zaczęliśmy rozważać 
krostię, jak prezentowane będą wyniki działania proteracu, 

A więc połóż palce na klawieturze! Zaczniemy od tytułu 
na początku: 


10 REM książka telefoniczna 
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Nie musiałeś umieszczać tytułu w programie, ale kiedy zaczniesz 
gromadzić co najmniej kilka nrogramów, pomoże Ci to poznać 
ne pierwszy rzut oka który t który. 
8 Następnie wiemy, że chcemy móc wprowadzić — INPUT - ciąg 
znaków (czyjeś nazwiske) do zmiennej; nazwiemy tę zmienną 
NAMEŚ.. To samo tyczy numeru telefonu, nazwiemy zatem drugą 
zmienną TEL$. 

Pamiętasz przykładowy program z "Kursu podstawowego"? 
Używano w nim rozkazu INPUT do wprowadzenia wartości do zmien- 
nej, a zatem możemy napisać: 


20 INPUT "wprowadź nazwisk e"; NAMEŚ 
30 INPUT "wprowadź numer telefon ut;” TELŚ 
run i 


Możesz teraz wprowadzić nazwisko, na przykład: Józek. 
Możesz następnie wprowadzić numer telefonu, na przykład: 

0277 230222, 

Program zapamiętał informacje, lecz nie może wyświetlić 
na ekranie rezultattr, Petrzebna jest teraz część programu, 
umożliwiająca edzyskanie informacji, a zatem jej wyświetlenie. 
Do otrzymania wartości NAMF$ i TEL$ w tym momencie, możemy 
użyć następujących rozkazów: 


PRINT NAME$ ... 1 ... PRINT TEL$ 
Ale co tam! Powiedzieliśmy że chcemy móc przechować aż do 100 
nazwisk i 100 numerów telefonów. Na pewno nie musimy pisać 
programu z dwustoma rozkazami INPUT, każdy z odmienną nazwą 
zmiennej i dwustoma rozkazami PRINT do wyświetlenia listy na 
ekranie 777 Nie martw się, komputer ma do tego specjalne urzą- 
dzenia, które nazywają się "tablicami" (array). Tablica umożli- 
wia Ci użycie jednej zmiennej (takiej jak np. NAMEŚ$), która 
może mieć dowolną liczbę wymiarów (w naszym programie wymagamy 
100). Jeżeli przy tym chcesz otrzymać wartość zmiennej, musisz 
użyć nazwy zmiennej z umieszczonym za nią numerem porządkowym 
(w nawiasach). Taki numer porządkowy nazywany jest indeksem 
a wyrażenie jak np. NAMEŚ (27) nazywa się zmienna indeksowana . 
Jeżeli teraz użyjemy zmiennej liczbowej jako indeksu, dla 
przykładu NAMEŚ (x), możemy następnie obsłużyć całą listę 
zmiennych od 1 do 100 przez zmienę wartości x w pętli FOR NEXT, 
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tj. FOR z=i TO 100. Pomieważ wartość x przyrasta o 1, to war- 
tość indeksu zmienia się i przemiata wszystkie elementy czy 
nazwiska w tablicy NAŁEŚ, 

My potrzebujemy dwóch tablic: jednej dla NAME$ 1 drugiej 
dla TELŚ$, każdej o wymiarze 100 elementów, Przed rospoczęcien 
używania tablicy, musimy na początku zadeklarować jej wymiary 
za pomocą instrukcji DIM (DIMensions=wyaiary). Napiszemy takie 
instrukcje w miejsca dotychczasowych w liniach 20 1 30; 


20 DIM NAMEŚ( 4100) 
30 DIM TEL$( 100) 


Mając ustalone nasze zmienne, napiszmy kawałek programu który 
na początek umożliwi nam wprowadzenie nazwisk i numerów tele- 
tonów do tablic w celu ich późniejszego odzyskanie. Dodaj: 


40 POR x=1i TO 100 

50 INPUT;"n a z w i s k o”; NAMEŚ(x) 
60 INPUT * te le fon *"; TEL$(x) 
10 NEXT 

run 


To jest wszystko bardzo dobrze, ale my możemy nie chcieć 
wprowadzać wszystkich 100 nazwisk jednocześnie, Co więcej, 
fakt że program prezentuje sam siebie na ekranie jest bardziej 
niż niezadowalający. Aby usunąć te niedogodności, wystarczy 
drobna kosmetyka. Po pierwsze, przed rozpoczęciem wprowadzania 
każdego nowego nazwiska i numeru, oczyśćmy ekran z» całego 
poprzedniego zbytecznego już tekstu przez użycie za każdym 
razem rozkazu CLS (CLear Sereen). Dodaj: 


45 CLS 


Teraz jak powiadomić komputer, ża właśnie zatończyliśmy 
wprowadzanie informacji? Naciśnięcie [Esc] może zatrzymać 
prograu, ale skoro tylko wprowadzisz znowu RUN, możesz stracić 
wszystkie wartości tak starannie wprowadzonych przez Ciebie 
zaiennych! 

Oto co możemy zrobić zamiast tego. Gdy program zakończy 
przyjmowanie nowego nazwiska, dokonamy programowego sprawdzenia 
czy cokolwiek zostało wprowadzone jako wartość NAMEŚ(x), innymi 
słowy sprawdzenie czy jako wartość NAMEŚ(x) wprowadziliśmy 


ciąg pusty czy też nie. Jeżeli (IF) tak będzie, to (THEN) 
zatrzymamy program bez żadnego dalszego przyjmowania danych. 
Czy zrozumiałeś w jaki sposób możemy to zrobić? Dodaj: 


55 IP NAMEŚ(x)=* * THEN 80 
80 PRINT "koniec wprowadzania” 


A także, aby prozram podpowiadał Ci w jaki sposób zakończyć 
wprowadzanie, dodaj: 


47 PRINT "Sam [RETURN] kończy wprowadzanie" 
A teraz napiszmy kawałek programy do wyświetlania prze- 
chowywanej informacji, początkowo w formie listy. Dodaj: 


90 FOR x=1 TO 100 
100 PRINT NAME$(x);" "; TEL$(x) 
110 NEXT 


I znowu program nie wie kiedy skończyć przed osiągnięciem 
100-go elementu tablicy, a zatem dodaj jeszcze: 


95 IF NAMEŻ$(x)=" " THEN 120 

120 PRINT "lista skończona" 
Linia 95 wykrywa czy NAMEŚ(x) jest pustym ciągiem i gdy (IF) 
tak jest, to (THEN) przerywa wyświetlanie przez pominięcie 
linii 100 i 110. 

A teraz następne nasze wymaganie. Napiszemy program który 
wyszukuje określone podane przez Ciebie nazwisko. Dodaj: 


130 INPUT "znajdź"; SFARCH$ 

140 FOR x=1 TO 100 

150 IF INSTR(NAMEŚ$(x),SEARCH$)=g THEN 180 
160 PRINT NAMEŚ(x);" ";TELŚ(x) 

170 END 

180 NEXT 

190 PRINT "nazwiska nie znaleziono” 


run 


% linii 150 występuje nowa instrukcja = INSTR. Powoduje 
ona przeszukiwanie (INterrocate) pierwszego ciągu tekstowego 
(STring) w celu stwie/dzenia, czy występuje w nim drugie wyra- 
żenie tekstore, a zatem szuka stę w NAME$(x) zmiennej SFARCH$ 
(która zawier:. wprowajdzone przez Ciebie w linii 130 nazwisko 
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do znalezienia), Jeżeli INSTR nie znajdzie zadanej zmiennej 
(łub żadnej części tej zmiennej), przyjmuje wartość O, co jest 
tu wykorzystywane do przejścia do linii 180 1 ponowienia próby 
2 następną (NFXT) wartością x. Jeżeli program przejdzie przez 
wszystkie wartości x aż do 100, wykonywana jest iinia 190, 
wwyniku czego dowiesz się że nazwiska nie znaleziono. Jeżeli 
jednak znalezione zostanie nazwisko, INSTR nie stanie się 
równe O i program przejdzie z linii 150 do 160, wydrukuje 
nazwisko i numer telefonu it zakończy się w linii 170 (END). 
Jak widzisz, nasz program opracowaliśmy całkiem szybko, 
lecz jest jeszcze ciązle wiele do zrobienia. Usiądź przez 
chwilę z założonymi do tyłu rękami i rozważ niektóre cechy 
ujemme programu, zaczynając od sposobu w jaki program działa: 
najpierw Ty piszesz informacje, potem otrzymujesz z powrotem 
listę i wreszcie szukasz określonego nazwiska. 


(o robić jeśli ...? 


Dobrze, a co robić jeśli nie chcesz wykonysać pro.ramu 
» takiej kolejności? Co robić jeśli chcesz rozpocząć od wyszu- 
kania nazwiska, które wpisałeś do programu wczoraj? I co - 
jeśli chcesz dodać jeszcze więcej nazwisk 1 numerów do tych, 
które już tam są? Są to problemy o których musisz pomyśleć 
i znaleźć ich rozwiązanie; 1 to wszystko musisz zaprosramować, 
Jak poprzednio wspomniano, BASIC jest na tyle miły, że pozwala 
(1 wprowadzać wstawki między linie istniejącego prozramu, lecz 
dobry programista powinien przewidywać takie problemy z góry. 
Innym ważnym problemem, związanym z tym prozramem jest to, 
te wartości zmiennych w tablicach SĄ przechowywane wyłączhia 
v części pamięci komputera, która jest czyszczona za każdym 
razem, kiedy uruchamiasz (RUN) jakiś program. Nie chciałby: 
ausieć wpisywać wszystkich informacji za każdym razem, kiedy 
używasz programu, potrzebujesz zatem takiego rozwiązania, które 
uzożlitwiałoby zachowanie wszystkich wartości NAMEŻ 1 TEL$ 
nawet gdy wyłączysz komputer a następnie wprowadzić te wartości 
gdy znów uruchomisz program. 


Rozwiązania 


Pierwszy z tych probłemów (tj. kolejność w której wykony- 
wane są poszczególne czynnoś. .) może być rozwiązany przez napi- 
sanie programu, który po uruchomieniu umożliwia wybór różnych 
funkcji, jakie może wykonywać. Taki typ programu jest nazywany 
"menu-driven", tj. "sterowany na podstawie listy poleceń" 

1 wyświetla na ekranie "menu" z którego możesz wybrać jakąś 
opcję. Jeżeli kiedyś korzystałeś z automatu bankowego, realizu- 
jącego czeki, to musiałeś już się spotkać z programem kompute- 
rowym tego typu. A zatem dodajmy menu do naszego programu: 


32 PRINT "1. wprowadź info" 

33 PRINT "2. 11a tu j info" 

34 PRINT "3. s z uka j" 

35 PRINT "4. przechowaj info" 
36 PRINT "5. ładu j info" 


37 INPUT "wybierz o po j ę"; ms 
38 ON ms GOSUB 40,90,130 


85 RETURN 

125 RETURN 
170 RETURN 
200 RETURN 


Jak widzisz, wprowadziliśmy program wyświetlający (PRINT) 
listę opcji, który następnie przyjmuje (INPUT) Twój wybór i pod- 
stowia ndpowiednią wartość pod zmienną ms (skrót od menu se- 
lection). Instrukcja ON ms GOSUB w linii 38 steruje dalszym 
przehiegiem programu: gdy ms=1 to GO (idź) do pierwszego pod- 
programu (SUB-routine), rozpoczynającego się w linii (48); 
gdy ms=2 to GO (taź) do drugiego podprogramu w linii (90) itd. 

Ponieważ każda z funkcji jest teraz podprogramem wywoły- 
wanym orzez instrukcję ON ms GOSUB, a każdy podprogram musi 
mieć na końcu instrukcję RETUKN, dodaliśmy jeszcze wszystkie 
te tnstrukcje. 

Czy pamiętasz co wykonuje rozkaz RETURN? Nakazuje wrócić 
po wykonaniu nodprozramu do miejsca w programie, występującego 
bezpośrednio po wywołującej podproeram instrukcji GOSUB tak, 
że w tym przypadku nowrót nastąpi do instfukcji po linii 38. 
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Oznacza to, że program będzie kontynuowany od linii 40 - gdzie 
rozpoczyna się "wprowadzanie informacji"! Ponieważ nie chcemy, 
aby to nastąpiło, musimy jeszcze dodać: 

39 GOTO 32 


przez co zainstalujemy w progranie petlę, powoduję ponowne 
wyświetlenie menu. A teraz uruchon /RUN/ program znowu 
1 zobacz jak daleko się „osunęliśny., 

Spójrzmy następnis przez chwilę na listę programu, 
/Jeżeli program ciągle działa, naciśnij dwa razy ESC . 
Wprowadź : 

LIST 
To, co powinieneś mieć w tym momencie przedstawiono poniżej: 


10 REM ksiazka telefoniczna 
20 DIM NAME$ (100) 

30 DIM TEL$(100) 

32 PRINT "1. wprowadz info” 

33 PRINT "2. listuj info" 

34 PRINT "3. szukaj” 

35 PRINT 74. przechowaj info” 
36 PRINT "5. laduj info" 

37 INPUT "wybierz opcje”Fms 

38 ON ms GOSUB 460>90,130 

39 GOTO 32 

40 FOR x=1 TO 100 

45 CLS 

47 PRINT "Sam [RETURN] konczy wprowadzanie” 
50 INPUTfF nazwisko” ;$NAME$ (x) 
55 IF NAME$(x)=""” THEN 80 

66 INPUT "telefon" ;TEL$ (x) 

70 NEXT 

80 PRINT "koniec wprowadzania” 
85 RETURN 

90 FOR x=1 TO 100 

95 IF NAME$(x)=""” THEN 129 

19% PRINT NAME$(x)57 "FTEL$ (>) 
116 NEXT 

130 PRINT "lista skonczona” 
125 RETURN 

130 INPUT *znajdz”;SEARCH$ 

148 FOR x=1 TO 100 

1560 IF INSTR (NAME$ (x) „SEARCH$)=0 THEN 180 
166 PRINT NAME$(x)37 ";TEL$ (x) 
178 RETURN 

182 NEXT 

190 PRINT "nazwiska nie znaleziona” 
20% RETURN 
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Możne zauważyć, że w niektórych częściach programu straci- 
lismy możliwośc wprowędzenia dodatkowych linii, wytwórzmy 
więc nieco więcej miejsca i uporządkujmy program przez 
"PRZEWUMEROJWANIE” linii za ponocą instrukcji RENUM, Wprowadź: 


RENUM 
LIST 


Povinieneń zobaczyć teraz następującą listę programu: 


10 REM ksiazka telefoniczna 
20 DIM NAME$ (100) 

30 DIM TEL$(100) 

48 PRINT "1. wprowudz info” 
56 PRINT "2. listuj info” 

60 PRINT "3. szukaj” 

76 PRINT 74. przechowaj info” 
80 PRINT "5. laduj info” 

90 INFUT "wybierz opcje”;ms 
100 ON ms GOSUB 120;210»27© 


110 GOTO 460 
120 FOR x=1 TO 100 
130 CLS 


140 PRINT "Sam CRETURN] konczy wprowadzanie” 
150 INPUTPF "nazwisko" ;NAME$ (x) 

160 IF NAME$(x)=”*” THEN 190 

176 INPUT "telefon";TEL$ (x) 

180 NEXT 

190 PRINT "koniec wprowadzania” 

280 RETURN 

2160 FOR x=1 TO 100 

220 IF NAME$ (x)="" THEN 250 

236 PRINT NAME$(x)57 ";TEL$ (x) 

240 NEXT 

250 PRINT "lista skonczona” 

260 RETURN 

270 INPUT "znajdz”;SEARCH$% 

280 FOR x=1 TO 100 

290 IF INSTR(NAME$ (x) »SEGRCH$)=© THEN 320 
300 PRINT NAME$(x)57 ";TEL$ (x) 

310 RETURN 

320 NEXT 

330 PRINT "nazwiska nie znaleziono” 
340 KETURN 


"Jest lepiej. A zatem dalei z programem! Dodamy teraz 
instrukcję, która zapewni, że ilekroć wprowadzisz nowe nazwisko 
i numery telefonów, komputer dołączy je do wcześniej wprowa» 
dzonych przsz umieszczenie ich w pierwszym pustym elemencie 
tablicy. Użyjemy w tym celu nowego rozkazu LEN, który określi 
długość /LENght/ ciągu. Sformułujemy to nstępująco: 

Gdy /1IF/ długość /LENght/ zmiennej tokstowej NAMES 
ject większa od O, tzn. są już wprowadzone jakieś dane do 
badanego elementu tablicy, to /THEN/ skocz do linii 180 
/co powoduje przeszkoczenie do nstępnego /NEXT/ elementu 
tablicy/. 

Zauważ /jeśli możesz/ jak podobna jest powyższa 
instrukcja sformułowana w języku angielskim do um:"szczoncj 
poniżej odpowiadejącej jej instrukcji w języku BAOC'Z, 

Mówię Ci, że BASIC naprawdę nie jest sztucznym językien!!! 


135 IF LEN/NAMES/x// $ THEN 180 
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Jakie to proste rozwiązanie, nieprawda? Problemy podobne 
do tego zawsze mogą być rozpracowane, jeżeli pomyśli się trochę 
nad listą słów kluczowych jezyka BASIC. Znajdzie się w niej 
prawie zawsze co najmiej jeden rozkaz, który będzie spełniał 
Twoje potrzeby programowe i im więcej będziesz programował 
tym łatwiej będziesz mógł znaleźć natychmiastowe rozwiązanie 
bez mała "na czubku głowy". 

A teraz do sprawy przechowywania zawartości zmiennych tak, 
abyś mógł je wprowadzać z powrotem po ponownym uruchomieniu 
programu, W części 7 "kursu podstawowego” wyjaśniono jak prze- 
chować sam prozram, używając rozkazu SAVE. Jednakże program 
jest tylko szkieletem który umożliwia wprowadzanie (za pomocą 
klawiatury) i wyprowadzanie (na ekran) wartości zmiennych. 
Jeżeli przechowasz (SAVE) program, to przechowasz szkielet 
a nie wartości zmiennych. 

A zatem musimy napisać odcinek programu, który umożliwi 
przechowanie wartości zmiennych na dysku, Zrobimy to przez utwo- 
rzenie oddzielnego "zbioru danych". 

Najnierw otworzymy (OPEN) zbiór wyjściowy (OUTput file) 

1 przyczielimy mu nazwę "dane" ("data"). Następnie wpiszemy. 
(WRITE) do tego zbioru wartości zmiennych NAME$(x) 1 TEL$(X) 
dla X od 1 do 100 1 ma koniec zamkniemy (CLOSE) nasz zbiór 
wyjściowy (OUTput file) 1 powrócimy (RETURN) do menu. Dodajmy 
to do prozramu, zaczynając od linii 350, Aby uniknąć pisania 
za każdym razem numeru linii użyjmy polecenia: ' 


AUTO 350 
które wprowadzi AUTOmatyczne numerowanie linii od wymienionej 
linii: 


350 OUPENOUT "dane" 
360 FOR x=1 TO 100 

370 WRITE 9, NAMEŚ(x),TEL$(x) 
380 NEXT 

390 CLOSEOUT 

400 PRINT "dane przechowane” 
410 RFTUKN 


50 napisaniu linii 410 1 naciśnięciu RETURN , naciśnij 
takze "SC aby zekończyć AUTOmatyczne numerowanie linii. 
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TexvrŁz musimy dodać jeszcze jeden numer do listy numerów 
linii w instrukcji ON ms GOSUB w linii 100, ponieważ wprowa- 
dziliśmy możliwość wybrenia jeszcze jednej opcji z menu. A zatem 
popraw (EDIT) linię 100 tak aby dodać ten numer; 


100 ON ms GOSUB 120,210,270,350 


Teraz, gdy tylko wybierzesz z menu opcję 4, program za- 
pisze na dysk wszystkie wprowadzone informacje, 

Zauważ że w linii 370, gdzie program zapisuje: (WRITF) 
wartości NAMEŚ(x) 1 TEJŚ(x) na dysk, po WRITE jest umieszczone 
wyrażenie 9. Znak + jest "wyróżnikiem strumienia” a nastę- 
pujący po nim parametr określa który "strumień ma być użyty 
do przesyłania informacji. Komputer ma 10 takich strumieni. 

Skierowanie danych do strumieni O do 7 (£f0O do FT) powo- 
duje pojawienie się ich na ekranie, ponieważ strumienie ŻY 
do łŁ7 są "strumieniami ekranowymi” czyli "oknami ekranu" 
(wINDOWs). 

Skierowanie danych do strumienia 42Q wysyła dane do dru- 
karki (jeżeli jest dołączona). 

I wreszcie, skierowanie danych do strumienia +9 wysyła 
je do napędu dyskowego, co zrobiliśmy właśnie w linii 37%. 


Zróbmy krótką dygresję ... 


Dodajmy jeszcze kilka słów o rozkazie AUTO, którego uży- 
waliśmy przed chwilą. Jeżeli opuścisz w tym rozkazie nurer 
linii i po prostu napiszesz: 


AUTO 
komputer zacznie numeronać linie poczawszy od linii 10, zwięk- 
szając numer linii o 10 po każd:n recifntięctiu klzwisza FETUAN 
Jeżeli wczesniej użyrałeś linii 10, 20, 0 tta., treść każdej 
linii wyświ-tlona zostenie na ekren'» w miarę przechodzenia 
przez te linie po koiejnym naciśnięciu RETURN , Każda linia 
wyświetlona na ekranie może być zmienione (poddana zabiegom ed:- 
cyjnym) przed użyciem klawisze LFIULIN co stanowi szythą retoć 
wprowadzania poprawek w następujących po sobie w regularnych 


odstępach liniach progeraru. 


100 


%*racamy do programu ... 


Mamy już dodane instrukcje umożliwiające przechowanie in- 
formacji na dysku tak, że ostatnią brakującą częścią programu 
jest wprowadzanie informacji z powrotem z dysku w taki sposób, 
aby były gotowe do użycia, A zatem musimy jeszcze dodać jedną 
opcję menu do listy numerów w linii 100. Zmień tę linię jak 
następuje: 


100 ON ms GOSUB 120,210,270,350,420 


A teraz instrukcje do wprowadzania informacji, Zaczniemy 
od otwarcia (OPEN) dyskowego zbioru wejściowego (INput file) 
o nazwie "dane". Następnie pobierzemy (INPUT) z dysku (stru- 
mień 49) wszystkie wartości zmiennych NAME$(X) i TEL$(X) 
dla 4» od 1 do 100 i na koniec zamkniemy (CLOSE) zbiór wejściowy 
(INput file) i powrócimy (RETURN) do menu. Napisz: 


420 OPENIN "dane" 

430 FOR x=1 TO 100 

440 INPUT +9, NAMES(x), TELS(x<) 
450 NEXT 

460 CLOSEIN 

470 PRINT "dane wproradzone" 
480 RETURN 


Koniec początku ... 


Teraz mamy już napisany program który całkowicie epełnia 
wymagania jakie sformułowaliśmy gdy cecydowaliśmy "co program 
ma robić", Wszystko, co jeszcze zostało to udoskonalenie sposobu 
w jaki "rezultaty są prezentowane" na ekranie, 


Początek końca ... 


Dodajmy kilka instrukcji które uporządkują prezentację 


procramu: 


34 MODE 1 
Ustali to tryb pracy ekranu i wyczyści ekran bo rozpoczęciu 


działania prorramu, A teraz codaj: 


16 WINTÓW 1, 17,20,10,14 
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Nie denerruj się tą na pozór skomplikowaną instrukcją. To co 
robimy teraz to wytworzenie małego okna na ekranie w którym 
wyświetlane będzie menu, Po słowie WINDOW (okno) najpierw 
określiliśmy numer strumienia z którym skojarzone jest to okno, 
a jak pamiętasz - mogliśmy użyć w tym celu jednego z 8 stru- 
mieni ekranowych od %fW do 37. Mając na uwadze że wszystko 
jest wyświetlane na ekranie przy użyciu strumienia + P jeżeli 
nie zostanie postanowione inaczej, nie użyliśmy 49 do neszego 
małego okienka, ponieważ wszystko co program wyświetla, będzie 
wysyłane do tego strumienia. Zamiast tego określiliśmy inny 
strumień spomiędzy 4k1 do *7 1 jek widzisz wybraliśmy +1. 
Cztery liczby następujące po + 1 określają wymiar okna 
w praktycznie najłatwiejszy sposób: liczby specyfikują lewy, 
prawy, górny i dolny brzeg okna i odnoszą się do kolumi tekstu 
i numerów wierszy (tak samo jak w rozkazie LOCATE). A zatem 
w naszym przykładzie, po określeniu użycia strumienia *% 1, po- 
wiedzieliśmy że lewy skraj okna zaczyna się w kolumnie 13, 
prawy skraj okna kończy się w kolumnie 30, górny skraj okna 
rozpoczyna się w wierszu 10 a dolny skraj okna kończy się 
w wierszu 14. 

Aby zapewnić wyświetlanie wszystkich pozycji naszego menu 
w określonym w ten sposób oknie, przy użyciu strumienia +1, 
musimy przeredagować linie 4/ do 8% jak następuje: 
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40 PRINTĘ1,"1. wprowadź info" 

50 PRINT ł+1,"2.. 118 tu j info" 

60 PRINT $1,"3. s zu kaj" 

70 PRINT 41,"”4. przechowaj info" 
80 PRINT łł1,"5, ła du j 1n fo" 


A teraz dodaj jeszcze: 


85 LOCATE 7,25 
lokuje to początek wyświetlenia napisu, przez instrukcję INPUT 
s linii 90 tak, by to zgrabnie wyglądało, 

Aby ekran był czyszczony zawsze, kiedy powraca się do 
menu, przeredaguj linię 110 ne 


11 GOTO 34 
Ponadto, aby ekran był czyszczony zawsze rdy wybierze się 
którąś z opcji, dodaj: 


95 CLS 
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Na koniec, dodaj jeszcze następujące 3 linie aby wprowa- 
dzić w programie pauzę przed powrotem do menu: 


103 LOCATE 4,25 

105 PRINT "naciśnij dowolny klawis: 
p o me nu" 

107 IF INKEY$=" " THEN 107 


Linia 103 lokuje początek tekstu, wyświetlanego w linii 105, 
Linia 107 bada (INterrogates) stan klawiatury (KEYboard) w celu 
stwierdzenia jaka zmienna tekstowa (String variable) została 
wprowadzona w wyniku naciśnięcia klawisza, Jeżeli (IF) okaże 
się, że ciąg tekstowy jest pusty (ponieważ nie naciśnięto 
żadnego klawieza) to (THFN) program wraca z powrotem ciągle do 
tej samej instrukcji dopóki INKTY$ nie wykryje że ciąg tekstony 
nie jest pusty gdyż naciśnięto klawisz, Jest, to użyteczny spo- 
sób wprowadzania pauzy w programie przez uniemożliwienie przejś. 
cia do następnej linii programu przed naciśnięciem klawisza. 

I w ten sposób mamy ukończony program. Naprawdę? Oczywiście 
mógłbyś wzbogacać go o takie udogodnienia jak poprawienie i wy- 
mażywanie nazwisk i numerów telefonów, układanie listy w po- 
rządku alfabetycznym, umożliwienie drukowania listy przez dru- 
karkę lub, jeśli jesteś bardzo ambitny, automatyczne wysyłanie 
sygnułu, odpowiadającego "wykręcaniu" numeru po napisaniu nazwi: 
ka - jeżeli oczywiście uzyskasz zgodę Urzędu Telekomunikacyjneg 
na podłączenie komputera do telefonu! 
| wszystkie takie rozszerzenia programu są możliwe i po. 
prawdzie mógłbyś ten program rozbudowywać i udoskonalać bez 
końca, zwłaszcza gdy masz tak potężny system komputerowy jak 
6128. Nie, nie dopiszemy już ani jednej linii i zostawimy 
w tym stanie naszą "książkę telefoniczną”, mając nadzieję, że 
nauczyliśmy eię kilku rzeczy o sztuce pisania programu "od jed- 
nego nociągnięcia pióra". Uporządkuj jeszcze tylko program 
przez wprowadzenie: 

RENUM 
« potem zapisz go na dysk lub go wyrzuć. Nigdy nie wiadomo, czy 
będzie Ci się przycawał do przechowania nazwisk przyjaciół 
1 ich numerów telefonów! 

Ostateczną listę programu przedstawiono na następnej 
stronie 


100 
1ie 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
470 
560 
510 
520 
530 
540 
550 
560 
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REM ksiazka telefoniczna 

DIM NAME$ (160) 

DIM TEL$ (1060) 

MODE 1 

WINDOW $1»13+30»18>14 

PRINT $1»71. wprowadz info" 
PRINT $1»"2. listuj info” 

PRINT $1»73. szukaj” 
PRINT %1»"4. przechowaj info” 
PRINT $1,"5. laduj info” 

LOCATE 7»25 

INPUT "wybierc opcje” ims 

CLS . 

ON ms GOSUB 150r290350;430,500 
LOCATE 9»25 

PRINT "nacisnij dowolny klawisz po menu 
IF INKEY$="" THEN 170 

GOTO 40 

FOR x=1i TO 100 

CLS 

IF LEN(NAME$ (x220 THEN 260 
PRINT "Sam [RETURN] konczy wprowadzanie 
INPUT; "nazwisko” > NAME$ (x) 

IF NAME$(x)="” THEN 270 

INPUT "telefon";TEL$ (x) 

NEXT 

PRINT "koniec wprowadzania” 
RETURN 

FOR x=1 TO 100 

IF NAME$(x)="" THEN 330 

PRINT NAME$ (x357 ";TEL$ (x) 

NEXT 

PRINT "lista skonczona” 

RETURN 

INPUT "znajdz” +SEARCH$ 

FOR x=1 TO 100 

IF INSTR (NAME$ (x) »SEARCH$)=© THEN 400 
PRINT NAME$(x)+"” ";TEL$ (x) 
RETURN 

NEXT 

PRINT "nazwiska nie znaleziono” 
RETURN 

OPENOUT "dane" 


FOR x=1 TO 100 : 
WRITE £9»NAME$ (x) rTEL$ (x) 
NEXT 

CLOSEOUT 

PRINT "dane przechowanea” 
RETURN 

OPENIN "dane" 

FOR x=1 TO 100 

INPUT $9»NAME$ (x) »TEL$ (x) 
NEXT 

CLOSEIN 

PRINT "dane wprowadzone” 
RETURN 
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ROZDZIAŁ 3 
PEŁNA LISTA SŁÓW KLUCZOWYCH JĘZYKA AMSTRAD CPC 6128 BASIC 


Uwacza 

Jest bardzo ważne, żeby zrozumieć terminologię 1 sposób zapisu 

stosowane w tym rozdziale. Przy wyjaśnianiu składni poszczegól= 

nych rozkazów używane są różnego typu nawiasy; należy zwrócić 

uwazę na to, że każdy typ nawiasu ma swoje specyficzne znaczenit 
Każda część rozkazu, która nie jest ujęta w nawiasy musi 

być pisana w takiej właśnie postaci. Na przykład rozkaz END 

ma formę: 


ENDL 


co oznecza, że należy napiBać w programie dosłownie END. 
Jeżeli część rozkazu jest zawarta w nawiasach ostrych 
na przykład: 


<numer linii> 


... NIF należy wpisywać nawiasów ani słów w nich zawartych. 
* powyższym przykładzie <numer linii> oznacza jaki typ da- 
nych musi występować w rozkazie. Na przykład: 


EDIT < numer linii> 

... Oznacza, że należy napisać 
EDIT 198 luh EDIT 70 

Nawiesy okrągłe muszą być wpisane dosłownie. Na przykład: 
COS (< wyrażenie liczbowe> ) 


.. oznacza, że <wyrażenie liczbowe> , którego COSinus ma być 
ohliczony, musi hyć ujęte w nawiasy to jest: 


PRINT COS (45) 


Wreszcie newiasy kwadratowe zawiereją opcjonalne części rozkazu 
lub funkcji, które mocą być nanisene, ale nie muszą. Na przykład 


RUN [< numer linii>] 


.. oznacze, że nie trzeha koniecznie dołączyć do słowa kluczo- 
wego RUN parametru €< numer linii> , ale można to zrobić. Stąd 
rozkaz ten może być nanisenv: 


PUN o... alho ... 5N 200 
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Znaki specjalne 


£ lub 8 H Przedrostek dla stałych heksadecymalnych 
04 Przedrostek dla stałych binarnych 
Ej Przedrostek dla numern strumienia logicznego 


Typy danych 


Ciągi znaków (teksty, łańcuchy znaków) mogą mieć długość 
od O do 255 znaków, 4 Wyrażenie tekstone> jest wyrażeniem, 
którego "wynikiem" jest tekst. Teksty nogą być dołączone do 
siebie przez użycie operatora +, przy czym długość tekstu wyni 
kowego nie może być więkeza niż 255, 

Dane liczbowe mogą być typu liczb całkowitych lub liczb 
rzeczywistych. Zakres liczb całkowitych jest od -32768 do 32767, 
liczby rzeczywiste mają do dziewięciu cyfr aneczących, ich 
zakres od -1.7E+38 do +1,TE+38, a najmniejsza wartość ponad ze- 
ro - około 2.9F—39, 

< Wyrażenie liczbowe> jest wyrażeniem, które daje wartość 
liczbową. Może to być po prostu liczba, może to być zmienna 
liczbowa, mogą to być liczhy i zmienne połączone operatorami, 
cokolwiek co nie jest < wyrażeniem tekstowym>. 

< Wyrażenie określające strumień> odpowiada «wyrażeniu 
liczbowemu> i identyfikuje okno ekranu, drukarkę lub dysk, 
gdzie dane mają być skierowane. 

<lista : « pozycji> opisuje narametr składający się 
z listy pozycji oddzielonych przecinkami. Lista może zawierać 
jedną lub kilka pozycji, liczba pozycji limttowane jest dłuqoś- 
cią linii. 

Znaczniki typu są następujące: 

% (Całkowite 

' Rzeczywiste (przyjmowane w przypadku breku określenia - do- 
myślnie) 

$ Tekst (String - ciąg) 

Słowa kluczowe języka AVMSTRAD CPC 6128 BASIC są przedste- 
wione w tym rozdziale w nastęnujacej formie: 


SŁOWO KLUCZOWE 
Składnia 
Przykład 
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Opis 

Słowa kluczowe pokrewne 

Słowo kluczowe może być: 

ROZKAZEM : operacje wykonyvane bezpośrednio 

FUNKCJĄ : operacje dołączane jak argumenty w wyrażeniu 
OPERATOREM: działa na argument matematyczny 


Przy LISTowaniu BASIC zamienia małe litery słów kluczo- 
wych na DUŻE LITERY. W przykładach zamieszczonych w tym rozdzia- 
le użyto DUŻYCH LITFR, ponieważ tak program jest LISTowany. 

Przy pisaniu programu należy używać małych liter. Ułatwia to 
zlokalizowanie hłędów, ponieważ przy listowaniu błędnie napisa- 
ne słowa kluczowe są w dalszym ciągu przedstawione małymi lite- 
rami. 

Szczegółowy opis języka AMSTRAL CPC 6128 BASIC można zna- 
leźć w Concise BASIC specification SOFT 967. 


Słową kluczowe ... 
ABS 


ABS ( < wyrażenie liczbowe > ) 

PRINT ABS (-67.98) 

67.98 
FUNKCJA: Wyznacza wartość bezwzględną (ABSolute) danego wyraże- 
nia, Oznścza to, że liczby ujemne zamieniane są na dodatnie. 
Słowa kluczowe pokrewne: SGN 


AFTER 


AFTFR < opóźnienie czasowe> [ , < numer licznika >] GOSUB 
< numer linii > 


10 AFTER 250 GOSUB GO:CLS 

20 PHINT "Zgadnij literę w 5 sekund" 

30 a$=INKTY$:IF wskaźnik = 1 THEN END 

40 IF a$ <> CHu$ (INT(RNDE 26+97)) THEN 30 
50 PRINT a$;, "zgadłeć. Wygrałeś" 

55 SOUND 1,478:SOUND 1,358:END 

60 PKINT "za późno, *ycrałem" 

70 SOUND 1,2000:wskaźnik=1:N"TURN 


run 


107 


ROZKAZ: Wywołuje podprogram napisany w BASIC'u po (AFTFR) 
zadanym opóźnieniu czasowym. Parametr < opóźnienie czasowe > 
wyznacza okres czasu w jednostkach 0,02 sekundy. 
< numer licznika > (w zakresie O do 3) określa, który z czte- 
rech liczników ma być użyty. Licznik 3 ma najwyższy priorytet; 
licznik O (przyjmowany w braku określenia - domyślnie) - naj- 
niższy. 

Każdy licznik może wywoływać swój podprogram. 

Dalsze informacje dotyczące przerwań mogą być znalezione 


w drugiej części rozdziału zatytułowanego "W wolnej chwili..." 
Słowa kluczowe pokrewne: EVERY, REMAIN, RETURN 


AND 
argument AND argument 


IF "piotr" < "zenek" AND "pies"> "kot" THEN PRINT "dobrze" 
ELSF PRINT "źle" 
dobrze 

IF "zenek"< "piotr" AND "kot" > "pies" THEN PRINT "dobrze" 
ELSE PRINT "źle" 

źle 

IF "piotr" < "zenek" AND "kot" > "pies" THEN PRINT "dobrze" 
ELSE PRINT "źle" 

źle 

PRINT 1 AND 1 

1 
PRINT O AND O 

(e) 

PRINT 1 AND O 

0 


OPFRATOR: Realizuje iloczyn loziczny (AND— 1) kolejnych bitów 
liczb całkowitych. Bit wyniku jest równy 1, jeżeli odpowiadające 
bity obydwu argumentów są równe 1. W pozostałych przypadkach 
bit wyniku jest O. 

Dalsze informacje dotyczące operacji logicznych mocą być 
znalezione w druciej części rozdziału "W wolnej chwili..." 
Słowa kluczowe pokrewne: OR, NOT, XOR 
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ASC 


ASC (< wyrażenie tekstowe >) 

PRINT ASC ("x") 

120 
FUNKCJA: Wyznacza wartość liczbową (w kodzie ASCII) pierwszego 
znkku <wyrażenia tekstowego> . 


Słowa kluczowe nokrewne: CHR$ 
ATN 


ATN (<wyrażenie liczbowe > ) 

PRINT ATN (1) 

0.785398163 
FUNKCJA: Oblicza Arcus TaNgens < wyrażenia liczbowego >. 
Słowa DFG i RAD mogą być użyte dla uzyskania wyniku odpowied- 
nio w stopniach lub radianach. 
Słowa kluczowe pokrewne: COS, DEG, RAD, SIN, TAN 


AUTO 


AUTO [< numer linii> ][, < inkrement>] 
AUTO 100, SO 
ROZKAZ: AUTOmatycznie generuje numery linii. Opcjonalny para- 
metr 4< numer linii> definiuje, który numer ma być wygenerowany 
jako pierwszy i stosowany jest w przypadku gdy chcemy rozpocząć 
generację linii od jakiegoś miejsca programu, *% przypadku pomi- 
nięcia tego parametru numery linii generowane są od limii 40. 
Opcjonalny parametr <inkrement> definiuje różnicę mię- 
dzy kolejnymi generowanymi numerami. W przypadku pominięcia 
tego parametru numery kolejnych linii zwiększane SĄ o 10. 
Jeżeli generowany jest numer linii aktualnie istniejącej, 
treść tej linii jest wyświetlana na ekranie i może być zmienia- 
na jeżeli trzeba, Treść wyświetlanej linii jest zmieniana w pa- 
mięci w chwili naciśnięcia LRETURN]. 
Aby przerwać automatyczne numerowenie linii, naleźy na- 
cisnąć [ESC]. 
Słowa kluczowe pokrewne: nie ma 
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BIN$ 


BIN$ (<wyrażenie określające liczbę całkowitą > ja ,<wyrażenie 

określające liczbę całkowitą>]) 

PRINT BIN$ (64,8) 

01000000 
FUNKCJA: Wyznacza ciąg cyfr BINarnych reprezentujących wartość 
pierwszego <wyrażenia określającego liczbę całkowitą> , przy 
czym liczba cyfr binarnych jest równa drugiemu <wyrażeniu 
określającemu liczbę całkowitą > (w zakresie O do 1€). Jeżeli 
żądana liczba cyfr jest za duża, wynik jest zapełniany niezna- 
czącymt zerami; jeżeli żądana liczba cyfr jest za mała, wynik 
NIE jest skracany do tej długości, lecz jest podawany z taką 
liczbą cyfr jaka jest potrzebna. 

Pierwsze <wyrażenie określające liczbę całkowitą> , które 
ma być przedstawione w postaci binarnej, musi dawać wartość 
w zakresie -32768 do 65535. 
Słowa kluczowe pokrewne: DEC$, HEX$, STR$ 


BORDER 
BORDER <kolor> [, < kolor>] 


10 REM 729 kombinacji koloru obrzeża 

20 SPTED INK 5,5 

30 FOR a=0 TO 26 

40 FOR b=0 TO 26 

50 BORDER a,b:CLS:LOCATE 14,13 

60 PRINT "border"; a; ","; b 

TO FOR t=1 TO 500 

80 NEXT t,b,a 

run 
ROZKAZ: Zmienia kolor obrzeża (BORDER) ekranu. Jeżeli podane 
są dwa kolory, obrzeże ekranu zmienia kolor6e czas ustalany roz- 
kazem SPEED INK. Zakres numerów kolorów jest od O do 26. 


Słowa kluczowe pokrewne: SPEED INK 
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BREAK 
(zobacz ON BREAK CONT, ON BRFAK GOSUB, ON BREAK STOP) 


CALL 


CALL < wyrażenie określające adres > 7 < lista: < parametrów >) 
CALL O 
ROZKAZ: Pozwala na wywoływanie (CALL) w BASIC'u podprogramów 
zewnętrznych dla BASIC'a. Powyższy przykład całkowicie zeruje 
komputer. 
Rozkaz ten nie powinien być stosowany przez niedoświad— 
czonego użytkownika, 
Słowa kluczowe pokrewne: UNT 


CAT 


CAT 
ROZKA7%: Podaje katalog (CATaloque) dysku. Wyświetla w porządku 
alfabetycznym pełne nazwy zbiorów razem z ich długością (w za- 
okrągleniu w górę do pełnego kilobajtu). Wyświetlana jest też 
ilość wolnego miejsca na dysku oraz identyfikacja napędu dysku 
(Drive) 1 użytkownika (User). 

Rozkaz ten nie niszczy programu aktualnie znajdującego 
się w pamięci. 
Słowa kluczowe pokrewne: LOAD, RUN, SAVE 


CHAIN 


CHAIN < nazwa zbioru > l ,„,<wyrażenie określające numer 11n11>) 
CHAIN "testprog.bas", 350 
ROZKAZ: Ładuje program z dysku do pamięci w miejsce aktualnie 
znajdującego się w pamięci programu. Następnie nowy program za- 
czyna być wykonywany od początku luh od linii podanej w opojo- 
nalnym wyrażeniu określającym numer linii>. 
Zbiory zabezpieczone (z przyrostkiem 3 p) mogą być ładowane 
1 uruchamiane rozkazem CHAIN. 
Słowa kluczowe pokrewne: CHAIN MERGE, LOAD, MERGE 
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CHAIN MERGE 


CHAIN MERGE nazwa abioru? [, «4 wyrażenie określające numer 
1ini1> J[, DELETE € zakres numerów linii>] 

CHAIN MERGE "newrun,bas”, 750, DELETE 400-680 
ROZKAZ: Ładuje program z dysku, dołącza (MERGE) go do programu 
znajdującego się w pamięci, następnie rozpoczyna jego wykonywa- 
nie od początku lub od numeru linii podanego w opcjonainym 
< wyrażeniu określającym numer linii> . Jeżeli, przed dołącze- 
niem programu z dysku, należy usunąć (DELETE) część programu 
znajdującego się w pamięci, można dodać do rozkazu opcjonalną 
część „DELETE < zakres numerów linii > . 

Uwaga, linie programu pierwotnego, które występują również 
w programie dołączanym, są zastępowane przez linie nowego pro- 
gramu. 

Zbiory zabezpieczone (z przyrostkiem „P) nie mogą być ła- 
dowane i uruchamiane przez CHAIN MERGE, 
Słowa kluczowe pokrewne: CHAIN, DELETE, LOAD, MERGE 


CHR$ 
CHR$ (< wyrażenie określające liczbę całkowitą >) 


10 FOR x = 32 TO 255 
20 PRINT x; CHR$ (x) 
30 NEXT 

run 


FUNKCJA: Zamienia wyrażenie okre-lające liczbę całkowitą 
w zakresie O do 255 na równoweżny znak (CHaRocter $tring) według 
wykazu znaków AMSTRAD'a zamieszczonego w trzeciej części roz- 
działu zatytułowanego "Nieco użytecznych informacji ..." 

Uwaga, liczhy od O do 31 odnowiadają znakom sterującym; 
stąd w powyższym przykłaczie wypisane są znaki w zakresie 32 
do 255. 
Słowa kluczowe pokrewne: ASC 
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CINT 
CINT ( <wyrażenie liczbowe >) 


10 n=1,9999 

20 PRINT CINT (n) 

run 

2 
FUNKCJA: Zaokrągla wartość <wyrażenia liczbowego > do liczby 
całkowitej (Convert to INTeger) w zakresie -32768 do 32767. 
Słowa kluczowe pokrewne: GREAL, FIX, INT, ROUND, UNT 


CLEAR 
CLEAR 


CLEAR 
ROZKAZ: Zeruje (CLEAR) wszystkie zmienne, Rozkaz ten powoduje 
zaniechanie otwartych zbiorów, skasowenie wszystkich tablice 
1 funkcji użytkownika oraz przełączenie BASIC'a na obliczenia 
kątów w radianech. 
Słowa kluczowe pokrewne: nie ma 


CLEAR INPUT 
CLEAR INPUT 


10 CLS 

20 PRINT "Wpisuj teraz litery!" 

30 FOR t=1 TO 3000 

40 NEXT 

50 CLEAR INPUT 

run 
ROZKAZ: Usuwa z bufora klawiatury wszystkie wcześniej wpisane 
znaki. 

Aby zaobserwować działanie tego rozkazu należy uruchomic 
powyższy program i wpisyrać litery z» klawiatury, kiedy komputer 
poprosi o to. Nastęnnie usunąć linię 50 i uruchomić program jesz- 
cze raz, zwracając uwagę na różnice w działaniu. 

Słowa kluczowe pokrewne: INKFY, INKEY$, JOY 
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CLG 
CLG [<atrament>] 
LOCATE 1, 20 
CLG 3 
ROZKAZ: Czyści ekran graficzny (Clear the Graphiea soreen) 


aktualnym kolorem papieru graficznego. Jeżeli podano 


<atramnt > , wartość ta zostaje przypisana do papieru gra- 
ficznego, 


Słowa kluczowe pokrewne: CLS, GRAPHICS PAPER, INK, ORIGIN 


CLOSEIN 
CLOSEIN 


CLOSEIN 


ROZKAZ: Zamyka zbiór wejściowy (CLOSE INput) z dysku. (Zobacz 
OPENIN). 
Słowa kluczowe pokrewne: EOF, OPENIN 


CLOSEOUT 
CLOSFOUT 


CLOSEOUT 


ROZKAZ: Zamyka zbiór wyjściowy (CLOSE OUTput) do dysku. 
(zobacz OPENOUT). 
Słowa kluczowe pokrewne: OPENOUT 


CLS 


CLS [ffwyrażenie określające strumier>] 


10 PAPER 2,3 

20 CLS 2 

run 
ROZKAZ: Czyści daną część ekranu (Clear Sereen) (okno) do 
koloru napieru, Jeżeli nie podane < wyreżenić określającego 
strumień> , czyszczony jest strumie:: O (cały ekran). 
Słowa kluczowe pokrewne: CLG, INK, PAPFR, WINDOW 
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CONT 
CONT 


CONT 
POZKAZ: Kontynuuje (CONTinue) wykonywanie programu jeżeli kla- 
wisz [FSC] został naciśnięty dwukrotnie lub jeżeli w progra- 
mie zamieszczono rozkaż STOP. CONT kontynuuje wykonywanie pro- 
gramu, jeżeli nie był on zmieniony 1 jeżeli nie jest to program 
zabezpieczony. 

Przed kontynuacją można wprowadzać inne rozkazy bezpo- 
średnie. 
Słowa kluczowe pokrewne: STOP 


COPYCHR$ 
COPYCHR$ (4<wyrażenie określające strumień >) 


10 CLS 

20 PRINT "zórny róg" 

30 LOCATE 1,1 

40 a$ = COPYCIR$ (40) 

50 LOCATE 1,20 

60 PRINT a$ 

run 
PUNKCJA: Kopiuje znak (COPY CHaRacter) z danej pozycji w stru- 
mieniu (który MUSI być podany). Powyższy program kopiuje znak 
z pozycji 1,1 (z lewej strony u góry) ekranu i przepisuje go 
aa pozycję 1,20 

Jeżeli znak nie jest rozpoznany wynik jest ciągiem pustym. 
Słowa kluczowe pokrewne: LOCATE 


CoS 

COS (<wyrażenie liczbowe >) 
DEG 
PR1NT COS (45) 
G.707106781 
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FUNKCJA: Oblicza COSinus <wyrażenia liczbowego> . 
Rozkazy DEG 1 RAD powodują, że wartość kąta podstawiana 


jest odpowiednio w stopniach lub radianech. 
Słowa kluczowe pokrewne: ATN, DEG, RAD, SIN 


CREAL 
CREAL (< wyrażenie liczbowe > ) 


10a = PI 

20 PRINT CINT (a) 

30 PRINT CREAL (a) 

run 

3 

3.14159265 
FUNKCJA: Oblicza wartość <wyrażenia liczbowego> . Przeksztełca 
ją na postać rzeczywistą (Convert to REAL). 
Słowa kluczowe pokrewne: CINT 


CURSOR 
CURSOR [<przełącznik systemowyy>] [ , <przełącznik użytkownika J] 


10 CURSOR 1 
20 PRINT "pytanie?" 
30 a$ = INKEY$ : IF a$ = "" THEN 30 


40 PRINT a$ 
50 CURSOR 0 
run 


ROZKAZ: Włącza lub wyłącza przełączniki, systemowy 1 użytkownika, 
kursora. Obydwa parametry muszą mieć wartość O (wyłączone) lub 1 
(włączone). YW powyższym rozkazie INKEY$, zdzie kursor jest nor- 
malnie wyłączony, został on włączony czięki istnieniu linii 10. 

Kursor jest wyświetlany, kiedy zarównc przełącznik syste- 
mowy>, jak i <przełącznik użytkownika > są włączone (1). 
<przełącznik systemowyj> jest eutomatycznie włączany dla rozka- 
zu INPUT, ale wyłączany dla rozkazu INKEY$. 

Poleca się, żeby kursor był wyłączony przy piseniu tekstu 


na ekranie. 
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Każdy parametr przełącznikowy może być pominięty, ale nie 
obydwa jednocześnie. Jeżeli jeden narametr jest pominięty, 


dany przełącznik nie zmienia s«eea0 stanu. 
Słowa kluczowe pokrewne: LOCATE 


DATA 
DATA <lista:<stałych> 


10 FOR x = 1 TO 4 

2n RFAD imię$, nazwisko$ 

30 PRINT imię$; " "; nazrisko$ 

40 NEXT 

50 DATA Hilda, Ogden, Bet, Lynch 

60 DATA Rita, Fatrclough, Mavis, Riley 

run 
ROZKAZ: Deklaruje dane (DATA) do użytku w programie. Dane te 
mogą być wczytywane co zmiennych za pomocą rozkazu READ, po 
którym "wskaźnik" przesuwa się do następnej pozycji w liście 
danych. Rozkaz RESTORE umożliwia przesuwanie wskaźnika 
do żądanej pozycji. 

Dalsze informacje dotyczące danych mogą być znalezione 
w części 2 rozdziału zatytułowanego "W wolnej chwili ..." 
Słowa kluczowe pokrewne: RFAD, RFSTORF 


Drc$ 


LFC$ (< wyrażenie liczbowe >, < szablon formatowy >) 

PRINT DEŻ20100 1.44 oodwnódki, „sę”) 
FUNKCJA: fytwarza ciqąc zneków dziesiętnych (DFCimal $trine) 
reprezentujących wartość <wyrażenia liczhowego> , używając po- 
danezo <szablonu fornatorego> do sternwania formatem wydruku 
ciącu wynikowego. 
Szahlon formetowy może zawierać wyłącznie znaki: 
+-£$wśk,.t 
Użycie tych "specyfikatorów nola formetu"” jest opisane nod 
słowem kluczowym PRINT USING. 
Słowa kluczowe pokrewne: BIN$, HFX$, PRINT USING, STR$ 
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DEF FN 
DEF FN<nazwa funkcji > l (< parametry formalne > )J = «wyrażenie» 


10 t = TIME/300 

20 DEF FNzegar = INT (TIME/300-t) 

30 EVERY 100 GOSUB 50 

40 GOTO 40 

56 PRINT "program został uruchomiony"; 

60 PRINT FNzegar; "sekund temu" 

70 RETURN 

run 
ROZKAZ: DEFiniuje FuNkcję. BASIC pozwala na definiowanie i uży- 
wanie w programie funkcji jednowyjściowych. DEF FN jest częścią 
definicyjną tego mechanizmu i tworzy funkcję programową, która 
działa w programie tak samo jak na przykład wbudowana na stałe 
funkcja COS. 
(Uwaga, w powyższym przykładzie wartość funkcji FN zegar jest 
stale uaktualniana, nawet, jeżeli program został przerwany 
przez jednokrotne naciśnięcie [Esc], lub zatrzynany przez dwu- 
krotne naciśnięcie [ESC], a następnie kontynuowany (CONT)). 
Słowa kluczowe pokrewne: nie ma 


DEF INT 
DFFINT < lista: «zakresów liter> 


10 DEFINT n 

20 liczba = 123.456 

30 PRINT liczba 

run 

123 
ROZKAZ: Ustala typ zmiennej, wobec brahu innego określenia 
(DEFault), na typ "całkowite" (INtexer). 1yv ten jest stos"wany 
wtedy, kiedy zmienna jest rymieniar' bez jawnego znacznika 
typu (1, %, $). Rozkaz ten ustala t;v "całkowite" dla zmiennych, 
których nierwsze litery są tekie seme, jak wyszczegolnione 
w Gliasciep. Lista pierwszych liter .oże byc na arzykład: 
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DEFINT a, b, © 
... lub w postóści zamkniętego przedziału pierwszych liter: 
DFFINT a-£ _ 
Słowa kluczowe pokrewne: DEFRFAL, DEFSTR 


DEFREAL 


DEFREAL <lista: 4zakresów liter> 
TEFREAL x,a-f 
ROZKAZ: Ustala typ zmiennej, wobec braku innego określenia 
(DEFault), na typ "rzeczywiste" (REAL). Typ ten jest stosowany 
wtedy, kiedy zmienna jest wymieniona bez jawnego znacznika typu 
(1! % $). Rozkaz ten ustala typ "rzeczywiste" dla zmiennych, 
których pierwsze litery są takie same, jak wyszczególnione 
w <liście>. Lista pierwszych liter może być na przykład: 
DEFERAL a,b,c 
... lub w postaci zamkniętego przedziału pierwszych liter 


DTFRTAL a-z 
Słowa kluczowe pokrewne: DEFINT, DEFSTR 


DFFSTR 
DEFSTR < lista: « zakresów liter > 


10 DFFSTR n 

20 nazwa =» "Amstrad" 

30 PRINT nazwa 

run 

Amstrad 
ROZKAZ: Ustala typ zmiennej, wobec braku innego określenia 
(DFFault), na typ "tekst" (STRing). Typ ten jest stosowany wte- 
dy, kiedy zmienna jest wymieniana bez jawnego znacznika typu 
(! * $). Rozkaz ten ustala typ "tekst" dla zmiennych, których 
pierwsze litery są takie same, jak wyszczególnione w « liście>. 
Lista pierwszych liter może być na przykład 

DEFSTR a,b,c 

luh w postaci zamkniętego przedziału pierwszych liter: 

DFFSTR a-z 
Słowa kłuczowe pokrewne: DFFINT, DEFRFAL 
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DEG 


DEG 

DFG 
ROZKAZ: Ustala sposób liczenia kątów w stopniach (DEGrees). 
Początkowo komputer jest ustawiony na liczenie kątów funkcji 
SIN, COS, TAN i ATAN w radianach, DEG przestawia BASIC na 
stopnie aż do przełączenia ponownego rozkazami RAD oraz NFW, 
CLEAR, LOAD, RUN itp. 
Słowa kluczowe pokrewne: ATN, COS, RAD, SIN, TAN 


DELETE 


DELETE < zakres numerów linii > 

DELETE 100-200 
ROZKAZ: Usuwa (DELETE) część programu bieżącego według wyraże- 
nia < zakres numerów linii >. 

Pierwszy lub ostatni numer w<zakresie numerów linii > 
może być pominięty dla wskazania "... od początku programu" 
lub ".., do końca programu”, to jest: 

DELETE -200 
„.. lub ... 

DELETE 50- 
dee JUD-sG> 

DELETE 
.„.. CO usuwa cały program 
Słowa kluczowe pokrewne: CHAJN MIURGF, RENUM 


DERR 


DERR 

LOAD "xyz.abc" 

XYZ.ABC not found 

Ready 

PRINT DERR 

146 
FUNKCJA: Podeje kod ostatniego hłędu sygnalizowaneso przez 
system dyskowy. Wartość DEKR może być używana do określenia za- 
istniałego błędu dysku (risc.FiRor). Zobacz Spis komunikatów 
błędów, podany » rozdziale zatytułowanym "Nieco użytecznych in- 
formacji . ." 
Słowa kluczowe pokrewne: ERL, FRR, FRROK, ON ERROR GOTO, RESUME 
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DI 


DI 

10 CLS:TAG:FVERY 10 GOSUB 30 

20 Xi=RNIM*4320:X2=RNL x 320 

30 1=200+RND* 200;C$=CHR$ (RND* 255) 

40 FOP X=320-X1 TO 320+X2 STEP 4 

50 DI 

60 MOVF 320,0,1:MOVE X-2, Y:MOVE X,Y 

70 PRINT * "; C$; :FKAMF 

80 EI:NFXT:GOTO 20 

90 MOVE 320,0:DRAT X+8, Y-16, O:RETURN 

run 
KOZKAZ: Zakaz przerwań (Disable Interupts) (innych niż przez 
('Sc]) aż do ponownego zezwolenie jawnie przez rozkaz EI lub 
niejawnie przez RETURN na końcu podproLramu obsługującego 
przerwanie. 

Uwace, wejście w podprogrem przerwania automatycznie zaka- 
zuje przerwania o równy, 1 niższym priorytecie. 

Fozkaz ten jest stosowany, aby zapobiec przerwaniom w cza- 
sie wykonywanie ceneco frarmentu programu - na przykład kiedy 
dwie części nrocrenu korzystają z jednego zbioru danych. W po- 
wyzszym urzykładzie procram główny i podprogram obsługi 
przerwania korzysteją z ekraru graficznego. 

balsze infortecje dotyczace przerwań można znależć w dru- 
ciej części rrzdziełu zetytutłowenceze "W wolnej chwili ..." 
Słowa kluczowe pokrewne: SFTLK, Fl, [vVELY, KEMAIN 


LIV 
LIW <liste: <zmieunych in'r*sowanych> 


10 CLS 

20 DIM koledzy$| (5), telrfon;$| (5) 

30 FOK N="1 TO 5 

40 PNINIT "koleea nr.": " 

50 TINPLT "Ppisz muzy s- " koledzy$ (n) 

60 INPUT "Tpisz nr. *e tonu"; telefony$ (n) 


70 PŁINT 
n 


80 NIXT 
3 Fur n=1 TO 5 
100 PZINI n; kalecz:Ż! triefonr$| (n) 


140 NEXT 
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ROZKAZ: Ustala wymiar (DIMension) tablicy. DIM przeznacza pewien 
obszar pamięci na teblicę i określa maksymalną liczhę zmiennych 
indeksowanych. BASIC musi być powiadomiony jak duży obszar pa- 
mięct ma przeznaczyć na tablicę; wobec braku określenia dłu- 
gość tablicy jest 10. 

Tablica jest identyfikowana przez < zmienną indeksowaną > 
dla której używana jest jedna nazwa zmiennej z różnymi indek- 
Bumi (z zakresu podanego w rozkazie DIM) tak, że każdy "ele 
ment" tablicy ma swoją indywidualną wartość. "Obróbka" tablicy 
może być więc dokonane na przykład przez pętle FOR NEXT, które 
przechodząc przez kolejne elementy, zapewniają ich przekształ- 
cenie. 

Uwaga, najniższa wartość indeksu jest zero (pierwszy ele- 
ment tablicy). 

Tahlice mogą być wielowymiarowe; każdy element takiej ta- 
blicy powinien być opisywany odpowiednią liczbą indeksów, Na 
przykład dla tablicy określonej przez: 

DIM position$| (20, 20, 20) 

„.. element powinien być w postaci, na przykład; 

position$| (4, 5, 6) 

Słowa kluczowe pokrewne: ERASE 


DRAW 


DRAW < współrzędna x>, 4 współrzędna y> la [ <atrament >] 
[< tryb rysowania >J] 


10 MODE OQ:BORDER O * PAPER O:INK 0,0 

20 x=RND *640:y=RND 4 400:z=RND Xe 15 

30 DRAW x,y,Z 

40 GOTO 20 

run 
ROZ”%AZ: Rysuje (DRAW) linię na ekrenie graficznym od bieżącej 
pozycji kursora graficznego do pozycji okre-lonej wartościami 
wanśłrzędnych x, y. Kolor, któryn ma tyć rysowana linia, 
określa opcjonalny narametr <atrument > (w zakresie O do 15). 

<"Tryh rysowanis > określa crerakter interakcji koloru 
linfi rysowanej z kolorami wystepującyni już no ekrenie ere- 


ficznym. < tryby rysoneanio> są usstępujące: 
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0: Normalny 

1: XOR (eXclusive OR - wyłącznie lub) 

2: AND -1 

3: OR = lub 

Słowa kluczowe pokrewne: DNRAWR, GRAPHICS PEN, MASK 


DRAWR 


DRAWR € wektor x>, < wektor y > [,[<atrament >] [ ,<tryb ry+ 
sowania>j jJ 


10 CLS:PRINT "zaczynają się schody?" 
20 MOVE O,350:FOR n=l TO 8 
30 DRAWR50, O 
40 DRAWR O, -50 
50 NEXT:MOVF 348, O:FILL 3 
60 GOTO 60 
run 
ROZKAZ: NRysuje (DRAW) linię na ekranie graficznym od bieżącej 
pozycji kurgora graficznego do pozycji określonej względnie 
(Relative) wektorem (x,y). Kolor, którym ma być rysowana linia, 
określa opcjonalny parametr < atrament > (w zakresie O do 15) 
Tryb rysowania określa charakter interakcji koloru linii 
rysowanej z kolorami już występującymi na ekranie graficznym. 
< tryby rysowania> eą następujące: 
0: Normalny 
1: XOR (eXclusive OR r wyłącznie lub) 
2: AND - 1 i 
3: OR - lub 
Słowa kluczowe pokrewne: DRA*W, GRAPHICS PEN, MASK 


EDIT 


EDIT < numer linii > 
EDIT 20 
ROZKAZ: Wyświetla (EDIT - edycja) linię programu podaną w roz- 
kazie wraz z kursorem, w celu dokonania poprawek. 
Słowa kluczowe pokrewne: AUTO, LIST 
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EI 


EI 

EI 
ROZKAZ: Zezwala (Enable) na przerwania (Intemupts), które 
zostały zakazane rozkazem DI. 

Jeżeli przerwania są zakazane w podprogremie obsługi 
przerwania, ponowne zezwolenie jest automatycznie realizowane, 
kiedy BASIC napotka rozkaz RETURN na końcu podprogramu, 

Dalsze informacje dotyczące przerwań można znaleźć w częś- 
ci 2 rozdziału zatytułowanego "W wolnej chwili ..." 

Słowa kluczowe pokrewne: AFTER, D1, EVERY, REMAIN 


ELSE 
(Zobacz IF) 


END 


END 

END 
ROZKAZ: Kończy (END) wykonys*anie programu, realizuje powrót do 
trybu bezpośredniego. W programie może występować dowolna licz- 
ba rozkazów END, jeden taki rozkaz jest automatycznie przewi- 
dywany po ostatniej linii proeramt. 
Słowa kluczowe pokrewne: STOP 


ENT 


ENT < numer obwiedni >] <sekcja otriedni >J[,<sekc Ja obwiedni >] 
(,<sekcje ohsiedni >] [,csekcja ohwiedni>j 
[,<sekcja obwiedni> ] 
10 ENT 1,10,-50,10,10,50,10 
20 SOUND 1,500,200,10, 1 
run 
ROZKAZ: Usteln obwiednię (modulecję) tonu (Tone ENvelope) przy- 
pisaną do © numeru obwiedni> (zakres 1 do 17), która jest uży- 
rana w rozkazie SOUND (dźwięk). Jeżeli <numer obwiedni) jest 
ujemny (-1 do -15), obwiednim jest powtarzena, aż do końca czasu 
trwania rozkazu SOUND. 
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każda z <sekcji obwiedni> może zawierać 2 lub 3 parametry. 
Jeżeli użyto 3 parametrów, są one następujące: 
<liczba stopni > , € wartość stopnia > , « długość stopnia > 


Parametr 1: « liczba stopni> © 

Parametr ten podaje przez ile różnych stopni tonu ma 
przejść dźwięk w czasie trwania sekcji obwiedni. Na przykład 
dla nuty, która ma trwać 10 eekund można zażądać 10 stopni tonu, 
każdy o czasie trwania 1 sekundy, W takim przypadku parametr 
«liczba stopni > powinien być 10. 
Dostępny zakres liczby stopni> jest O do 239, 


Parsmotr 2: © wartość stopnia > 

Paremetr ten must być w zakresie -128 do +127. Ujemne stop- 
nie porodują, że ton jest wyższy; dodatnie powodują, że ton 
jest niższy. Najkrótszy okres tonu jest 0, Pelny zakres okresów 
tonu jest zamieszczony w rozdziale "Nieco użytecznych informa- 
cjł «cę”» 


Parametr 3: < długość stopnia > 

Parametr ten określa czos pomiędzy stopniami w jednostkach 
0,01 sekundowych. Zakres liczb określających ten parametr jest 
0 do 255% (gdzie 0 jest traktowane jak 256), co oznacza, że naj- 
dłuższy czas między stopniami wynosi 2,56 sekundy. 
Jeżeli użyto 2 narametrów, są one nestępujące. 
<okres tonuy , Xdługość tonuj 


Parametr 1: <okres tonu > 
Parametr ten określa bezwzględnie okres tonu (patrz Para- 
metr 2 rozkazn SUUND) 


Parametr 2: £ dłucość tonu > 

Parametr ten noduje czis trwania tonu w jednostkach 
9,01 sekundowych, Zakres liczb określających ten parametr jest 
Q do 255 (mdzie © jest traktowane jak 256). 


wiosdoności ogólne 


Uwaga, całkowita dłuzość wszystkich stopni powinna Dbyć nie 
większe niż perametr 4 czas trwania > w rozkazie SOUND, 
* przeciwnym rezie dźwięk skończy się, zanim przejdzie przez 
wszystete stopnie. (W tym orzypadku nozostała część obwiedni 


tonu bęczio niewykorzystana), 
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Podobnie, jeżeli parametr czas trwania w rozkazie 
SOUND jest większy niż całkowita długość wszystkich stopni, 
dźwięk będzie kontynuowany po przejściu wszystkich stopni, 
a wysokość tonu pozostanie na wartości wynikającej z ostat- 
niego stopnia. 

W rozkazie ENT można użyć do 5 różnych « sekcji obwiedni> 
(każda złożona z powyższych 2 luh 3 parametrów). 

Pierwszy stopień obwiedni tonu jest wykonywany natychnmtast. 

Za każdym nowym określaniem obwiedni o danym numerze, 
jej poprzedni kształt przestaje obowiązywać, 

Podanie numeru otwiedni bez żadnej sekcji w rozkazie ENT 
kasuje poprzednio ukształtowaną obwiednię. 

Dalsze informacje dotyczące dźwięku można znaleźć w 2 częś- 
ci rozdziału zatytułowanego "W wolnej chwili ..." 
Słowa kluczowe pokrewne: ENV, SOUND 


ENV 


ENV <€ numer obwiedni> 5 < sekcja obwiedni>][, <sekcja ohwiedni>] 
[/ <shkcja obwiedni>J[,<sekcja obwiedni>] 
[,<sekcju obwiedni>] 
10 ENV 1,15,-1,10,15,1,10 
20 SOUND 1,200,300,15,1 
run 
ROŻKAZ: Ustala obwiednię (modulucję) głośności (Volume FNvelope) 
przypisaną do £ nunieru obwiedni> (w zakresie 1 do 15), która 
jest używana w rozkazie SOUND (dźwięk). 
Każda z < sekcji obwiedni> moze z.-.wierać 2 lub 3 parametry. 
Jeżeli użyto 3 parametrów, są to. 


<liczbe stopni> , « rartość stopnia> ,<dłuzość stopnia > 


Parametr 1: «liczba stopni > 


Parametr ten nodaje przez ile róznsch stopni głośności ma 


przejść dźwięk w czesie trwenie seiceji obwie«1. Na przykłed 
dla nuty, która ma trwać 10 sekunc mo/na zażądać 10 stopni 
tłosności, kazdy o czesie trwanie sekunmey, * takim przypedku 
parametr <liczi stobnib> bawia: deo 10. 


lostęnuv zakres Iiczhy stopna j*<' ja 127 
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Parametr 2: <wartość stopnia> 

Każdy stopień może różnić się od poprzedniego o poziom 
głośności od 0 do 15%. Przy różnicy równej 16 poziom głośności 
Jest ten sam, *prawdzie <wartość stopnia > ma zakres -128 do 
+127, tym niemniej poziom głośności powtarza się co 16. 


Parametr 3: < długość stopnia > 

pardnetr ten określa czas pomiędzy stopniami w jednostkach 
0,01 sekundowych. Zakres liczb określających ten parametr jest 
O do 255 (gdzie 0 jest traktowane jak 256), co oznacza, że naj- 
dłuższy czas między stopniami wynosi 2,56 sekundy. 
Jeżeli użyto 2 parametrów, sę to: 
<obwiednia sprzętowa> , Gdługość obwiedni > 


Parametr 1: <obwiednia sprzętowa > 
Parametr ten podaje wartość, która ma być przesłana do 
rejestru kształtu obwiedni układu sterowania dźwiękiem. 


Parametr 2: « dłuzość obwiedni > 

Parametr ten podaje wartość, która ma być przesłana do 
rejestru okresu ohwiedni układu sterowania dźwiękiem. 

Zakłada się znajomość sprzętu przy użyciu obwiedni sprzę- 
towej. Bez takiej znajomości, należy używać obwiedni programo- 
wych zawierających odpowiedni parametr 4 długość stopnia >. 


Wiadomości ogólne 


Uwaga, całkowita długość wszystkich stopni powinna być 
nie większa niż parametr «czas trwania> w rozkazie SOUND, 

w przeciwnym razie dźwięk skończy się zanim przejdzie przez 
wszystkie stopnie głośności. (W tym przypadku pozostała część 
obwiedni głośności będzie niewykorzystana). 

Podobnie, jeżeli parametr Kczas trwania> w rozkazie 
SOUND jest większy niż całkowita długość wszystkich stopni 
dźwięk będzie kontynuczany po przejściu wszystkich stopni, 

z głośnością rynikającą z ostatniego stopnia. 

W rozkazie FNV można użyć do 5 różnych <sekcji obwiedni > 
(każda złożona z powyższych 2 luh 3 parametrów). 

Pierwszy stopień ohwtedni złosności jest wykonyvany natychmiast 
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Za każdym nowym określeniem obwiedni o danym numerze, jej 
poprzedni kształt przestaje obowiązywać. 

Podanie numeru ohwiedni bez żadnej sekcji w rozkazie ENV 
kasuje poprzednio ukształtowaną obwiednię. 

Dalsze informacje dotyczące dźwięku można znaleźć 
w 2 części rozdziału zatytułowanego "W wolnej chwili ..." 
Słowa kluczowe pokrewne: ENT, SOUND 


EOF 


EOF 

10 OPENIN "keys.wp" 

20 WHILE NOT EOF 

30 LINE INPUT 4 9, a$ 

40 PRINT a$ 

50 WEND 

60 CLOSEIN 

run 
FUNKCJA: Testuje czy wejście z dysku sygnalizuje koniec zbioru 
(Fnd Of File). Wynik jest 1 (prawda), jeżeli nie jest otwarty 
żaden zbiór lub zbiór został wczytany. W przeciwnym wypadku 
wynik jest O (fałsz). 
Słowa kluczowe pokrewne: OPENIN, CLOSEIN 


ERASE 


ERASE <lista: 4 nazw zmiennych > 
DIM a (100), b$ (100) 
ERASE a, b$ 
ROZKAZ: Usuwa (ERASE) zawartość tablicy już niepotrzebnej, 
zwalniając obszar pamięci do innego użytku. 
Słowa kluczowe pokrewne: DIM 


ERL 


ERL 
10 ON ERROR GOTO 30 
20 GOTO 1000 
30 PRINT "błąd jest w linii"; ERL 
40 END 
run 


FUNKCJA: Podaje numer linii, w której został zauważony ostatni 
błąd (ERror Line). w powyższym przykładzie błąd sygnalizowany 
jest w linii 20 i jest wyświetlany przez funkcję ERL. 

Słowa kluczowe pokrewne: DERR, ERR, ERROR, ON FRROR GOTO, RESUME 


ERR 
ERR 
GOTO 500 
Line does not exist 
Ready 
PRINT ERR 
8 


FUNKCJA; Podaje numer ostatnio wykrytego błędu (ERRor). 

Zobacz spis komunikatów błędów podanych w rozdziale zatytułowa” 
nym "Nieco użytecznych informacji ...", W powyższym przykładzie 
funkcja ERR podaje numer 8 odpowiadający błędowi "Linia nie 
istnieje", 

Słowa kluczowe pokrewne: DFRR, ERL, ERROR, ON ERROR GOTO, RESUME 


ERROR 


ERROR < wyrażenie określające liczbę całkowitą > 

10 IF INKEY$ = " " THEN 10 ELSE ERROR 17 

run 
ROZKAZ: Wywołuje program obsługujący błąd (ERROR) o nume- 
rze podanym w 4 xyrażeniu określającym liczbę całkowitą > 
Spis komunikatów błędów 1 do 32 jest podany w rozdziale zatytu- 
łowanym "Nieco użytecznych informacji ...". BASIC traktuje 
ERROR, jak gdyby został wykryty prawdziwy błąd 1 wchodzi w pod= 
program obsługi błędu, jak również podaje właściwe wartości 
FRR i ERL, 

ERROR z <wyrażeniem określającym liczbę całkowitą > w za- 
kresie 33 do 255 może hyć użyty do tworz nia własnych komunika- 
tów błędów, jak pokazano w następującym przykładzie: 
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10 ON ERROR GOTO 100 
20 INPUT "wpisz jeden znak”;a$ 
30 IF LEN (a$)<>1 THEN FRROR 100 
40 GOTO 20 
100 IF ERR=100 THEN 110 ELSE 130 
110 PRINT CIR$ (7) 
120 PRINT "powiedziałem JEDEN znak!” 
130 RESUMF 20 
run 
Słowa kluczowe pokrewne: ERL, ERR, ON FRROR GOTO, RESUME 


EVERY 
FVERY <okres czasu> [,<nunmer licznika > J GOSUB< numer linit > 


10 EVERY 50,1 GOSUB 30 

20 GOTO 20 

30 SOUND 1,20 

40 RETURN 

run 
ROZKAZĘ Wywołuje podprogram w BASIC'u w regularnych odstępach 
czasu, określonych przez <okres czasu> w jednostkach 0,02 sekun- 
dowych (EVERY - każdy). 

< Numer licznika> (zakres 0 do 3) określa, który spośród 
czterech liczników ma być użyty. Licznik 3 ma najwyższy prio- 
rytet, licznik O (przyjmowany w przynadku braku określenia) 
najniższy. 
Każdy licznik może wywoływać swój nodprogram. 

Dalsze informacje dotyczącep” '.rwań można znaleźć w 2 rzęś- 
ci rozdziału zatytułowanego "V wolnej chwili ..." 
Słowa kluczowe pokrewne: AFTER, I"NATN 


EXP 


EXP (< wyrażenie liczbowe > ) 

PRINT EXP (6.876) 

968.743625 
FUNKCJA: Oblicza "e" do-potęgi »" w «wyrażeniu liczbowym >, 
gdzie "e" równe około 2,7152315 ;: l1czhą, której lozarytm 
naturalny jest równy 1. i 
Słowa kluczowe pokrewne: LOG 
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FILL 
FILL <strament> 


10 MODF O 

20 FOR n=i TO 500 

30 PRINT "O" 

40 NEXT 

50 kolor pióra »2+RND4% 13 
60 FILL kolor pióra 

70 GOTO 50 

run 


ROZKAZ: Wypełnia (FILL) wybrany obszar ekranu graficznego. 
Krańce obszaru sĄ ograniczone liniami narysowanymi aktualnym 


atramentem nióra graficznego, luh atramentem użytym do wypeł- 


niania (zakres < atramentu> 0 do 15). 


Wypełnianie rozpoczyna się od bieżącej pozycji kursora 


graficznego. Jeżeli pozycja ta leży na 1inii ograniczającej, 


wypełnienie nie nastąpi. 
Słowa kluczowe pokrewne: GRAPHICS PEN 


FIX 


FIX (<wyrażenie liczbowe >) 
PRINT FIX (9.99999) 
9 
FUNKCJA: Usuwa część ułamkową wyrażenia liczbowego 
glając ją do zera (FIX - ustalać). 
Słowa kluczowe pokrewne: CINT, INT, ROUND 


FN 


(Zobacz DEF FN) 


FOR 


FOR <zmaenna jednoliterowa >= < początek> TO <koniec > 
[STEP < wartość kroku >J 
10 FOR n=2 TO 8 STEP 2 
20 PRINT n; 
30 NEXT n 
40 PRINT ",zagrałem ci na nosie" 
run 


zaokrą* 
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ROZKAZ: Wykoauje program zawarty pomiędzy rozkazami FOR (dla) 

i NEXT określoną liczbą razy, zmiesiając zmienną sterującą 

0d < początku > do «końca> o parazetr «wartość kroku>. 

Jeżeli <wartość kroku > nie jest podana, przyjmowane jest i. 
<VWartość kroku> może być ujemna i wówczas wartość <po- 

czątku> musi być większa niż wartość <końca)> „w przeciwnym 

wypadku zmienna sterujące nie Łędzie zaienżana. 

Pętle FOR NEXT mogą być "zagnieżdżone” wie.okrotnie jedna 
w drugiej. 

Dopisywanie nazwy zmiennej do rozkazu NEXT nie jest obu- 
wiązkowe, ponieważ BASIC potrafi znaleźć, który rozkaz FOR 
jest skojarzony z "anonimowym" rozkazem NEXT. 

Słowa kluczowe pokrewne: NEXT, STEP, TO 


FRAME 


PRANE 

10 MODE O 

20 PRINT "FRAME wyłączone” 

30 TAG 

40 MOVE 0,200 

50 FOR x=0 TO 500 STEP 4 

60 IF f=1i THEN FRAME 

70 MOVE x, 200 

80 PRINT " "; CHR$ (143); 

90 NEXT 

100 IF f=1i THEN RUN 

110 CLS 

120 TAGOFF 

130 PRINT "FRAME włączone" 

140 fzi 

150 GOTO 30 

run 
ROZKAZ: Synchronizuje (FRAME - dopasować) wpisywanie znaków 
graficznych na ekran w czesie powrotów plamki świetlnej. 0g61- 
nym efektem tego jest gładki ruch elementów po ekrenie, bez 
"nigotania" lub "rozdzierania”. 
Słowa kluczowe pokrewne: TAG, TAGOFF 
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FRE 


FRFr (<wyrażenie liczhowe >) 
FRE ( < wyrażenie tekstowe >) 


PRINT FRE (0) 

PRINT FRE (" ") 
FUNKCJA: Podaje ile wolnej (FkEe) pamięci pozostaje niezajęte 
przez BASIC. Forma FRE (" ") powoduje "usunięcie śmieci" przed 
podaniem wartości dostępnego miejsca. 
Uwaga. BASIC używa tylko pierwszych 64 K pamięci. 
Słowa kluczowe pokrerne: HIMEM, MEMORY 


GOSUR 
GOSUB < numer linii > 


GOSUB 310 
ROZKAZ: Powoduje przejście do podproeremu (GO to a SUBroutine) 
w RASIC'u,rozpoczynającego się od nodenego <numeru linii >. 
Koniec podprogramu jest zaznaczony rozkazem RETURN, po którym 
wykonywanie prouramu jest kontynuowene od instrukcji występują- 
cej po wywołującym rozkazie GOSUB. 
Słowa kluczowe sokrewne: RETURN 


GOTO 
GOTO «numer linii> 


GOTO 90 
ROZKAZ: Powoduje przejście do (GO 10) podanej linii. 


Słowa kluczowe pokrewne: nie ma 


GRAPHICS PAPER 
GRAPHICS PAPER <atrament > 
10 MODF O 
20 MASK 15 
30 GRAPHICS PAPYE 3 
40 DRAW 640, © 
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ROZKAZ: Przypisuje <atrament> do papieru graficznego 
(GRAPHICS PAPFR). Przy rysowaniu linii ciągłych papier graficz- 
ny nie jest widoczny. W powyższym przykładzie rozkaz MASK umoż- 
liwia rysowanie linii przerywanej, co czyni papier eraficzny 
widzialny. 

<Atrament> papieru graficznego (w zakresie O do 15) jest 
również używany do tła znaków wpisanych rozkazem TAG oraz przy 
czyszczeniu okienek graficznych rozkazem CLG (w przypadku braku 
innego określenia). 
Słowa kluczowe pokrewne: CLG, GRAPHICS PEN, INK, MASK, TAG, 

TAGOFF 


GRAPHICS PEN 
GRAPHIC$ PEN [<atrament>] L; <rodzaj tła>] 


10 MODE O 

20 GRAPHICS PEN 15 

30 MOVE 200, O 

40 DRAW, 200, 400 

50 MOVE 639, O 

60 FILL 15 

run 
ROZKAZ: Określa, który <atrament> (w zakresie O do 15) ma być 
użyty do rysowania linii i punktów (GRAPHICS PEN - pióro gra- 
ticzne) < Rodzaj tła > może być: 

0: Tło nieprzezroczyste 

1: Tło przezroczyste 

(Tło przezroczyste powoduje, że na ekrenie widoczne są znaki 
wpisane z rozkazem TAG i przerwy w liniach kropkowanych). 

Można pominąć jeden z parametrów rozkazu, ale nie ohydwa. 
Jeżeli któryś z pararetrów jest pominięty, jezo określenie nie 
zmienia się. 

Słowa kluczowe pokrewne: GRAPHICS PAPFR, INK, MASK, TAG, TAGOFF 


EGX$ 


HEX$ (< wyrażenie określające liczbę całkowitą bez znakuż 
[,<szerokość pola>] 
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PRINT HrX$ (255,4) 

OOFF 
FUNKCJA: Daje ciąg cyfr hexadecynalnych (HEXadecimal $tring) 
reprezentujących wartość < wyrażenia określającego liczbę 
całkonitą bez znaku > . Długość ciągu wyznacza < szerokość 
nolea> (w zakresie O do 16). Jeżeli żądana liczba cyfr jest 
za duża, wynik jest zapełniany nieznaczącymi zerami; jeżeli 
żądana liczha cyfr jest za mała, wynik NIE jest skracany do 
tej długości, lecz jest podawany z taką liczbą cyfr jaka jest 
potrzebna. ; 

Zakres wartości < wyrażenia określającego liczbę całkowitą 
hez znaku > jest -32768 do 65535, 
Słowa kluczowe pokrewne: BIN$, DFC$, STR$, UNT 


HIMUM 
HINFM 
PRINT NHIMTM 
42619 | 
FUNKCJA: Podaje adres najnyższego (TIghest) bajtu namięci 
(MFyory) używanej nrzez BASIC (który może być zmieniony rozka- 
zem MFMORI). 
"wama, BASIC używa tylko pierwszych 64 K pamięci. 
Słowa kluczowe pokrewne: FRE, MIMONRY, SYMBOL, SYMBOL AFTER 


Ii 
IF <«ryrażenie logciczne> THEN <opcja> FLSE <opcja > 


10 MODF 1 

20 x=CINT (RNDx% 100) 

30 PPINT "Zeadnij mój numer (0 do 100)* 

40 INPUT n 

50 JF n<x TEEN PEINT n; "jest za małe ..." 
60 IF n>x TKEN PRINT n; "jest za duże ..." 
70 IF n=x THLN 60 LLST c=c+1:GOTO 40 

8N PLINT "loskonale, trafiłeś"; 

00 PETNT c+1; "trafier!" 


rum 


ROZKAZ : Jeżeli (IF) wartość < wyrażenia logicznego > jest 
"prawda" to (THEN) wykonycana jest nierwsza <opcje>. Jeżeli 
wartość wyrażenia logicznego > jest "fatsz" i istnieje 
druga <opcja > , to jest ona wykonyvana; w przeciwnyt wy- 
padku wykonywany jest nestępay rozkaz. 

Rozkazy IF TKEN mogą być "zagnieżdżane" do dowolnej ułębo- 
tości 1 ich działanie kończy się z końcem linii, Dlatego nie 
Rożna w jednej linii umieścić rozkazów IF THFN i rozkazów od 
iuioh niezależnych. 

Jeżeli <opcją> jest skok do linii o danym numerze, roz- 
taz taki może być napisany jak na przykładach: 

IF a = i THEN 100 
„.. albo 

IF a = 1 GOTO 100 
„. albo 

IF a = 1 THEN GOTO 100 
Słowa kluczowe pokrewne: ELSE, GOTO, THEN 


INK 
INK < atrament> ,<kolor> [, <kolor >] 


10 MODE 1:PAPER O:PEN 1 

20 FOR p=0 TO 1 

30 FOR i=0 TO 26 

40 INK p,i 

50 LOCATE 16,12:PRINT "atrament"; p; ",";i 

60 FOR t=1 TO 400:NFXT t,i,p 

70 INK 0,1:INK 1,24:CLS 

run 
ROZKAZ: Przypisuje kolor (y) do danezo atramentu (INK). Pare- 
etr < atrament > musi być liczbą całkowita : zakresu O do 15 
może być następnie stosowany » rozkazach PEN i PAPER. Piern- 
szy < kolor> powinien być liczbą z zakresu O do 26. Jeżeli po- 
fany jest drugi < kolor>, atrament zmienie berwę Z szybkościa 
określoną przez rozkaz SPEED INK. 
Słowa kluczowe pokrewne: GRAPHICS PA?EK, GRAPHICS PEN, PADKA, 

PEN, SPEFL INK 
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INKFY 
JNKTY (< wyrażenie określające liczbę całkowitą >) 


10 IF INKFY (55) <>32 THIN 10 

20 PRINT "Nacisnąłeś [SHIFTJ i V" 

30 CLFAR INPUT 

run 
FUNKCJA: Podaje stan klawiszów: [SHIFTJ, [CONTROL] 1 klawisza 
(KTY) o danym numerze, Klawiatura jest przeglądana co 0,02 se- 
kundy, 

Funkcja ta jest użyteczna w przypadku sprawdzania czy 
dany klawisz jest wciśnięty. Sprawdza się wówczas czy wartość 
funkcji jest równa -i (niezależne od stanu klawiszów [ SHIFT] 
1 LCONTROLJ). 

Powyższy przykład sprawdza czy wciśnięty jest [ SHIFT] i V 
(klawisz nr. 55). Wykaz numerów klawiszów umieszczono na pokry- 
wie komputera oraz w rozdziale zatytułowanym "Nieco użytecz- 
nych informacji ...". 

Stan klawiszów określony jest w sposób następujący: 


Wartość funkcji [ suirTrJ [coNTROL] dany klawisz 
-1 nie zależy nie zależy zwolniony 
0 zwolniony zwolniony wciśnięty 
32 wciśnięty zwolniony wciśnięty 
123 zwolniony wciśnięty wciśnięty 
160 wciśnięty wciśnięty wciśnięty 


Słowa kluczowe pokrewne: CLEAJ INPUT, INKEY$, JOY 


TNKPY$ 
IYXrY$ 


10 CLS 
20 PRINT "Rybierz Tak lub Nie (T/N)?" 
30 a$=INXTY$ 

40 IF a$="" THEN 30 

50 IF a$ż="Ł" OR a$="T" TN 80 

G0 IP ag="n" ©N a$="N" TURN 90 

70 GOTO 30 

80 PLINI "wybrałeś TAK":TNL 

40 PILINT "wybrałeś NIE" 


run 
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FUNKCJA: Podaje ciąg ($trinz) znaków (znak) z klawiatury 
(KFYboard). Jeżeli żaden klawisz nie jest wciśnięty, ciąg jest 
pusty. W powyższym przykładzie sprawdza się czy wciśnięty jest 
klawisz "YI", czy "N", czy żaden z nich. 

Słowa kluczowe pokrewne: CLEAR INPUT, INKEY 


INP 
INP (< numer portu >) 


PRINT INP (4 FF71) 
FUNKCJA: Podaje wartość z portu wejściowego (INput Port; 
o adresie określonym przez <numaer portu>. 
Słowa kluczowe pokrewne: OUT, WAIT 


INPUT 


INPUT [fk <wyrażenie określające strumień >,] [;][<tekst do 
powtórzenia> < separator > J«< lista: <zmiennych > 


10 MODE 1 
20 INPUT "Podaj dwie liczby do mnożenia (oddzielone 
przecinkiem)"; a,b 

30 PRINT a; "razy"; b; "równa się”; axb 

40 GOTO 20 

run 
ROZKAZ: Przyjmuje dane z danego Strumienia (ze strumienia $0 
w przypadku braku określenia) (INPUT -wejście). 

Pierwszy, opcjonalny średnik 6:2 likwiduje przesunięcie 
kursora na początek nowej linit po wprowadzeniu danej. 

<Separator> musi być śreruikiem lub przecinkiem. Średnik 
powoduje, że wyświetlany jest pytajnik, przecinek powoduje, że 
pytajnik nie jest wyświetlany. 

Jeżeli ne wejściu nojawia sie dana złego typu (na przykład 
jeżeli wpisane jest orzez ocayłkę litera U zamiast O - zero, 
przy przyjmowaniu danych iiczbowych), BASIC wyświetla 

2 Kedn from start 

:4 tekst do powtórzenia 
Kpisywanie każdej danej mus1l hyć zukorczone Kiamiszem RETUNN 


Słowe kluczowe pokrewne: LINI INPUT 
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JNSTR 


INSTR ([<pozycja startowa > ,] < tekst przeszukiwany > , 
<tekst poszukiwany > ) 


10 CLS:FOR n=1 TO 26 

20 alfabet$zalfabet$+CHR$(n+64) 

30 NEXT 

40 INPUT "Wnisz literę"; a$ 

50 b$=UPPER$(a$) 

60 PRINT b$;"jest" 

70 PRINT INSTR (alfabet$ ,b$) 

80 PRINT "literą w alfabecie.":PRINT 

30 GOTO 40 

run 
FUNKCJA: Przeszukuje «tekst przeszukiwany > w celu znalezie- 
nia «tekstu poszukiwanego > i podaje pozycję w <tekście prze: 
szukiwanym> pierwszego znalezionego «tekstu poszukiwanego >, 
Jeżeli poszukiwanie jest bezskuteczne, wynik jest 0. 

Pozycja, od której należy rozpocząć przeszukiwanie może 
być zadana parametrem Cpozycją startowa >, którego wartość musi 
być liczbą całkowitą od 1 do 255, 

Słowa kluczowe pokrewne: nie ma. 


INT 


INT ( < wyrażenie liczoowe >) 

PRINT INT (-1.995) 
FUNKCJA: Zaokrągla liczbę do najbliższej, mniejszej liczby całk 
witej (INTeger). Podaje te same wartości co FIX, dla liczb do- 
datnich, ale o jeden mniej niż FIX dla liczb ujemnych, które 
nie są liczbami całkowitymi, 
Słowa kluczowe pokrewne: CINT, FIX, ROUND 


JOY 


JOY (< wyrażenie określające liczbę całkowitą >) 
10 PRINT "Aby zatrzymać nrogram="; 
20 PRINT "użyj joysticka" 
20 IF JOY (0) <> 0 THFN END 
40 GOTO 10 
run 
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FUNKCJA: Odczytuje znaczoną poszczególnymi bitami pozycję 
JOYstick'a, którego numer (0 lub 1) podano « <wyrażeniu 
określającym liczbę całkowitą >. 


Bit Dziesiętnie 
0; W górę 1 
1: W dół 2 
2: W lewo 4 
3: W prawo 8 
4: Spust 2 16 
5: Spust 1 32 


Stąd na przykład, jeżeli główny spust (spust 2) pierwszego 
joystick'a jest naciśnięty, kiedy dźwignia joystick'a jest 
w pozycji w lewo, funkcja JOY (0) daje wartość dziesiętną 20 
(odpowiednio 1644). 

Dalsze informacje dotyczące joystick'ów można znaleźć 
w rozdziale zatytułowanym "Nieco użytecznych informacji ..." 
Słowa kluczowe pokrewne: CLEAR INPUT, INKEFY 


KEY 
KFY € numer ekspansji znakowej > , < wyrażenie tekstowe > 


KEY 11,"border 13:paper O:pen 1:ink 0,13: 

ink 1,0:mode 2:list"+CIR$ (13; 
„...teraz wciśnij klawisz ENILR 
ROZKAZ: Przypisuje <wyrażenie tekstuwe> do klawisza (KFY), 
którego <numer ekspansji znakowej> podano. Możliwe są trzy - 
dzieści dwa"znaki rozszerzone", o numerach O do 31, przypisane 
do wartości kodu klawiszów 125 do !59. Klawisze o wartościach 
128 ( f0 w bloku klawiszów cyfrow;cn) do 140 (C(COoNTROLJ [ENTERJ) 
są, w braku określenia, przypisane do cyfr O do 9, kropki 
dziestętnej, kodu RETURN 1 RUN "RETUKN (dla operacji z ka- 
setą magnetofonową), ełe mogą byt wtórnie przypisane do innych 
<ryrażoń tekstowych >. "Znaki rozszerzone” 13 do 31 (wartości 
tlariszów 141 do 159) przypisane są, w braku określenia do 
tekstów nustych, ale mozą być wy»*łnlone i nrzynisane do kławi- 
szów przy użyciu rozkazu KFY IEF os:sanczo m następnym przykła- 
dzie. 
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< Numer ekspansji znakowej> może być w zakresie O do 31 
lub, opcjonalnie, 128 do 159 dla odzwierciedlenia wartości kla- 
wiszów. (Zobacz ilustrację klawiatury w rozdziale zatytułowanym 
"Nieco użytecznych informacji ..." 

<Wyrażenie tekstowe > może mieć długość 120 znaków. W przy- 
padku przekroczenia tej wartości wyświetlany jest błąd nr 5 
- Improper argument 
Słowa kluczowe pokrewne: KFY DEF 


KTY DFF 


KEY DFF < numer klawisze >, < powtarzanie> L. <wartość normalna» 
[,<z klawiszem L SHIFT]J> [,<z klawiszem [CONTROLJ JJ 


KFY 159 "to jest klawisz tabulacji" 

KrY DEF 68,1,159 
... teraz wciśnij klawisz TAB 
ROZKAZ: Określa (DFFine) wartość klawisza (KŁY) o danym <nume- 
rze klawisza> w zakresie O do 79 (numery klawiszów podane są 
na pokrywie komputera i w rozdziale zatytułowanym "Nieco użytecz- 
nych informacji ..."). <Kartość normalna> , < z klawiszem 
[SUIFTJ> 1 <z klawiszem [CONTROL powinny określać wartości 
kodów jakie ma dawać wciśnięcie danezo klawisze odpowiednio: 
samego, razem z klawiszem SIIFT 1 razem z klawiszem CONTROL . 
Parametry te są opcjonelne. 

Parametr < powtarzanie> pozwala włączyć lub wyłączyć 
(1 lub 0) automatyczne nowtarzanie kodu klawisza. Częstotli- 
wośc <powtarzania> może być zmieniana rozkazem SPEED KEY. 

V powyższym przykładzie klawisz o wartości 159 (odpowiada- 
jącej numerowi znaku rozszerzonego 31) przynisany jest najpierw 
"znak rozszerzony": "to jest klawisz tabulecji", następnie roz- 
kaz KTY LFF określa klawisz 68 ( TAR ) jako powtarzający (1) 

o kodzie 159. 

Ww powyższym przykładzie normalne działanie może być przy- 
wrócone przez: 

KTY DEF 68,0,3 

zdzie 9 jest normalną wartością klawisza TAB 


Słowa kluczowe nokrawne: Lr, SPFEL NPR 
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LFFT$ 
LEFT$ ( <wyrażenie tekstowe >, < żądana długość >) 


10 CLS 

20 a$="AMSTRAD" 

30 FOR n=i TO 7 

40 PRINT LEFT$ (a$,n) 

50 NEXT 

run 
FUNKCJA: Podaje ciąg znaków, o długości (w zakresie O do 255) 
określonej przez <żądaną długość> , wyodrębniony z lewej 
(LFFT) strony <wyrażenia tekstonego >. Jeżeli <wyrażenie 
tekstowe> jest krótsze niż <żądana długość > podawane jest 
całe <wyrażenie tekstowe > . 
Słowa kluczowe pokrewne: MID$, RIGHT$ 


LEN 
LEN ( <wyrażenie tekstowe >) 
10 LINF INPUT "Wpisz jakieś zdanie”; a$ 
20 PRINT "Zdanie ma"; 
30 PRINT LEN (a$); "znaków." 
run 
FUNKCJA: Podaje całkowitą długość (LFNgth) < wyrażenia 
tekstowego > . 
Słowo kluczowe pokrewne: nie ma 


LET 


LET < zmienna)» = Ćwyrażenie > 


LET x=100 
ROZKAZ: Przypisuje wartość do zmiennej. Pozostałość po wczes- 
nych BASIC'ach, w których podstewiarie do zmiennych musiało 
być tak oznaczone (LFT - niech). "ie m' zastosowania w AMSTRAL 
BASIC prócz zapewnienia komnat 'a0-ci z porozramani podanymi 
w starych podręcznikach EASIC' ©yzszy przykład powinien byc 


napisany no prostu: 
x=100 


Słowa kluczowe pokrewne: n.' 
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LINF INPUT 


LINF INPUT [f<wyrażenie określające strumień > ,] [ ;] [<tekst 
do powtórzenia > <separator>]<zmienna tekstowa ) 


10 LINF INPUT "Wpisz jedną linię tekstu",a$ 


20 CLS 

30 PRINT "Zmienna a$ jest teraz równa:-" 
40 PRINT a$ 

run 


ROZKAZ: przyjmuje całą linię tekstu ze wskazanego strumienia 
(strumień f€O w braku określenia). Pierwszy, opcjonalny śred- 
nik powoduje, że kursor nie jest prześtawiany na początek nowej 
linii po wykonaniu rozkazu: 

<Separator> musi być średnikiem lub przecinkiem. Średnik 
poroduje wyświetlenie pytajniku, przecinek przeciwnie. 

LINK INPUT z klawiatury ($0) jest kończony przez naciśnię- 
cie ([RETURN]. 

LINF INPUT z dysku (lub kasety), strumień 49 jest kończo- 
ny znakiem CR (ODH w kodzie ASCII) lub w chwili przyjęcia 
257-tego znaku. 

Słora hluczowe pokrewne: INPUT 


LIST 


LIST[<zekres numerów linii?>] [ „,łf<wyrażenie określające 
strumień >] 


LIST 100-1000, 41 
ROZKAZ: LISTuje linie programu w danym strumieniu, Strumień fo 
(przyjmanany w braku określenia) jest strumieniem ekranu, ?Ę8 
strumieniem drukarki. Listowenie można przerwać przez jednokrot- 
ne naciśnięcie [TSCJ 1 ponownie uruchomione przez naciśnięcie 
spacji. Ewukrotne naciśnięcie LFsc] powoduje zaprzestanie listo- 
wania i powrót do trybu bezpośredniego. 

Pierwszy lub ostatni numer w <7zakresie numerów linii > może 
hyć pominięty cla rstazania: "... od początku programu” lub 
"... do końca pracramu"; na przykład: 

LIST =200 

ATA DZRWERC 


LIST 74- 
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„.. lub ... 
LIST 
co listuje cały program. 
Słowa kluczowe pokrewne: nie ma 


LOAD 


LOAD < nazne zbioru> (. « wyrażenie określające adres >] 


"LOAD "disofile.xyz",4 2AF8 
ROZKAZ: Ładuje (LOAD) program BASIC*owy 2 dysku do pamięci, za- 
stępując program znajdujący się w pamięci. Podanie opcjonalnego 
<wyrażenia określającego adres> powoduje ładowanie zbioru 
binarnego pod wskazany adres, niezależnie od adresu, z którezo 
zbiór ten był zapisywany. 

Zahezpieczone programy BASIC'owe nie mogą być ładowane 
tym rozkazem, ponieważ są one wówczas natychmiast usuwane z pa- 
nięci. Zamiast tego rozkazu należy używać wtedy rozkazów RUN 
lub CHAIN. 
Słowa kluczowe pokrewne: CHAIN, CHAIN XMFRGE, MERGE, NUN, SAVE 


LOCATE 


LOCATE L< wyrażenie określające strumień >, 7 <współrzędna x>, 
<współrzędna y> 


10 MODE 1 

20 FOR n=1 TO 20 

30 LOCATE n,n 

40 PRINT CHR$(143); "location"; 

50 PRINT n;",";n 

60 NEXT 

run 
ROZKAZ: Umieszcza (LOCATE) kursor tekstowy, "e wskazanym stru- 
mieniu, na pozycjt określonej przez współrzędne x i y. Pozycja 
11 znajduje się w lerym zórnym rozu strumienia (okna). 
Strumień go przyjmowany jest w braku określenie. 


Słowe Kluczowe pokrewne: WINI'U 
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LOG 
LOG (< wyrażenie liczbowe >) 


PRINT LOG (9999) 

9.21024037 
FUNKCJA: Oblicza LOGarytm naturalny «wyrażenie liczbowego >, 
które musi być większe od zera. 
Słowa kluczowe pokrewne: EXP, LOG 10 


LOG 10 
LOG 10 (<wyrażenie liczbowe >) 


PRINT LOG 10 (9999) 

3.99995657 
FUNKCJA: Oblicza LOGarytm dziesiętny «wyrażenia liczbowego>, 
które musi być większe od zera. 
Słowa kluczowe pokrewne: EXP, LOG 


LOvFH$ 
LOYTR$ (<.wyrażenie tekstowe >) 


10 a$ = "POPATRZ JAK LITERY ZMIENIAJĄ SIĘ" 

20 PRINT LOWFR$ (a$+"NA MAŁE") 

run 
FUNKCJA: Podaje nowy tekst, który jest kopią tekstu z <wyraże- 
nie tekstoweco>, ale w którym wszystkie duże litery zamienione 
eg ne małe (LOVER) litery. Funkcja ta jest użyteczna do przetra- 
rzenia ciągów wejściowych, które mogą zawiereć pomieszane małe 
i duże litery. 
Słowe kluczowe pokrewne: UPPFR$ 


MASK 
MAS [<wyrażenie określające liczbę całkowitą >)[,custawienie 
pierwszego punktu> 
10 MODE O0:INK 5,21:INK 8,16 
20 MOVE -100x RND, 400%RND 
30 WHILE XPOS 4 640 


40 FOR x=1 TO £ 


50 MA 
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ROZKAZ: Określa "MASKę” lub szablon, który ma być użyty przy 
rysowaniu linii, Wartość hinarna / wyrażenia określającego 
liczbę całkowitą y, w zakresie 0 do 255, włącza (1) lub wyłącza 
(0) bity w każdej grupie 8 kolejnych punktów ekranu, 

Ustawienie pierwszezo punktu decyduje o tym, czy pierw- 
szy punkt linii ma być rysowany (1) czy nie (0). 

Każdy z parametrów może być pominięty, ale nie obydwa na 
raz. Jeżeli parametr jest powinięty, nie zmienia aię właści- 
wość, którą on określa. 

Słowa kluczowe pokrewne: DRAW, DRARWR, GRAPHICS PAPEL, GRAPHICS 
PEN 


MAX 
MAX ( lista: 4 wyrażeń liczbowych > ) 


10 n=66 

20 PRINT MAX (1,n,3,6,4,3) 

run 

66 
FUNKCJA: Podaje MAXymalną wartość / wyrażeń liczbowych ? 
umieszczonych w liście. 
Słowa kluczowe pokrewne: MIN 


MEMORY 
MEMORY wyrażenie określające adres 


MEMORY Śr20AA 
ROZKAZ: Zmienia ilość pamięci (VEVORY) dostępnej dla PASIC'u, 
poprzez określenie adresu nejwyżej położonego bajtu, 
Uwaca. BASIC używa tylko pierwszych 64 K pamięci. 
Słowa kluczowe pokrewne: FRE, HIV. M, SYMBOL, SYMBOL AFTER 


MERGF 
MFRGF Cnazra zbioru y 


ROZKAZ: ładuje program z dysku * :'czy (MFEGE) go z programem 
zawartym w pamięci. 

Uwaga, linie proeramu z dysku © © " semych numerach co linie 
starego orogramu zastępują Le (= jie. 
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Zbiory zabezpieczone (z przyrostkiem ,p) nie mogą być 
dołączane do programu tym rozkazem. 
Słowa kluczowe pokrewne: CHAIN, CHAIN MERGE, LOAD 


MID$ 


MID$ ( Cwyrażenie tekstowe» , 4 pozycje startowa> (,< żądana 
długość > ) 


10 MODE 1:ZONE 3 

20 a$="FNCYKLOPFDIA" 

30 PRINT "Przeliteruj ";a$ 

40 PRINT "OK....":PRINT 

50 FOR n=1 TO LEN (a$) 

60 PRINT MID$ (a$,n,1) 

710 FOR t=1 TO 700:NEXT t,n 

80 PRINT :PRINT 

90 INPUT "Teraz wpisz inne słowo"; a$ 

100 GOTO 50 
run 
FUNKCJA: Podaje nowy tekst, o żądanej długości „ będący ry- 
ciągiem z tekstu określonego ćwyrażeniem tekstowym >, rozpoczy- 
nającym się od danej pozycji startowej> . Jeżeli nie jest 
podana /żądana długość) , podawana jest cała reszta tekstu od 
(pozycji startowej)do końca. 

Jeżeli /pozycja startowa) jest większa niż długość tekstu 
Cwyrażenia tekstowego) , ciąg wynikowy jest ciągiem pustym. 
Zakres Cpozycji startowej> jest 0 do 255, zakres żądanej 
dłuzości O do 255. 

Słowa kluczowe pokrewne: LEFT$, EIGHT$ 


MID 


MIT$ ( C zmienna tekstowa >) (pozycjr wtrącehia> [, < długość 
noweco tekstu » ) = 4 nowe ryrażenie tekstowe» 


10 a$= hello" 

20 MIDS(a$,3,2)="XX" 
30 PRINT a$ 

run 

heXXo 
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ROZKAZ: Wprowadza 4/nowe wyrażenie tekstowe > w tekst przecho 
wywany w zmiennej tekstowej> , rozpoczynając od (pozycji 
wtrącenia > i zajmując liczbę znaków tekstu równą (długości 
nowego tekstu> , 

Uwaga, przy użyciu MID$ jako rozkazu, tekst pierwotny musi 
być podany « postaci zmiennej tekstowej (np. a$) nie może 
to być stała tekstowa (nv. "hello"). 

Słowa kluczowe pokrewne: LETT$, RIGHTĘ 


MIN 
MIN ( Clista: 4 wyrażeń liczbowych > ) 


PRINT MIN (3,6,2.999,8,9) 

2.999 
FUNKCJA: Podaje MINimalną xartość spośród (wyrażeń liczbowy, r 2 
występujących w liście. 
Słowa kluczowe pokrewne: MAX 


MOD 
(argument> MOD argument > 


PRINT 10 MOD 3 

1 

PRINT 10 MOD 5 

[o 
OPERATOR: Wynikiem jest reszte z dzielenia pierwszego <ereu- 
mentu © przez drugi (dzielenie MODulo X). 
Słowa kluczowe pokrewne: nie ma 


MODF 
MODF Cwyrażenie określające liczbę całkowitą > 


10 m=m:1:1F m)>2 THEN m=0O 

20 MODE m 

30 PRINT "to jest tryb"; m 

40 PRINT "teraz naciśnij jakiś klawisz" 
50 IF INKEY$=" "THFN 50 ELSE 10 

run 
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ROZKAZ: Zmienia tryb (MODE) organizacji ekranu (zakres O do 2) 

1 czyści ekran koloreń atramentu O („który nie musi być aktual- 
nym atramentem napieru). Wszystkie okna tekstowe i graficzne 

są likwidowane, kursor tekstu i graficzny są przesuwane do ich 

pozycji wyjściowych. 

Słowa kluczowe pokrenne: ORIGIN, NINDOW 


MOVE 


MOVE (współrzędna x), « współrzędna y> L' [kstrament >) 
L,<tryb rysowania?) ) 


10 MODE 1:TAG 

20 x=RND 4800-100;y=RND X 430 

30 MOVE x,y 

40 PRINT "jestem tutaj"; 

50 GOTO 20 

run 
NOZKAZ: Przesuwa (MOVE) kursor zraficzny do pozycji (x,y). 
Oncjonalny parametr «atrament > zmienia atrament (w zakresie 
O do 15) przypisany do pióra graficznogo. 

Opcjonalny parametr (tryb rysowania ) określa rodzaj 
interakcji atramentu z liniami narysowanymi wcześniej. 
Tryby rysowania SĄ następujące: 
0: Normalny 
1: XOR (eXclusive OR) 
2: ANL (1) 
3: OR (luh) 
Słowa kluczowe pokrewne: MOVIR, ORIGIN, XPOS, YPOS 


NOVER 


MOVE: (rektor x), (wektor y>[, [eatrament >] 
[,ttryh rysowania? J] 
10 MODT 1:TAG:MOV[ 0,16 
20 P.INT "życie ma swoje” 
30 POR n=1 TO 10 
40 VOVUP -32,16 
50 PLINT "wzloty"; NEXT O UUINT "4"; 
60 FON n=1 TO 10 
70 MOVE. -C4, -16 


SO PKINT "upadki"; :NIXT 
run 
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ROZKAZ: Przesuwa względnie (MOVE Relative) kursor graficzny 
od bieżącej pozycji o wskazany wektor. Opcjonalny parametr 
Catrament> zmienia atrament (w zakresie 0 do 15) przypisany 
do pióra graficznego. 

Opcjonalny parametr dtryb rysowania > określa rodzaj inter- 
akcji atramentu z liniami narysowanymi wcześniej. "fryby ryso- 
wania są następujące: 


0: Normalny 

1: XOR (FXclusive OR) 
2: AND (1) 

3: OR (lub) 


Słowa kluczowe pokrewne: MOVE, ORIGIN, XPOS, YPOS 


NEW 


NEW 

NEW 
ROZKAZ: Usuwa program i zeruje zmienne w pamięci. Nie usuwa 
definicji klawiszów, nie zmienia charokterystyk ekranu 
(MODE, PEN, INK itd,), nie czyści ekranu. 
Słowa kluczowe pokrewne: nie ma. 


NEXT 
N'XT  £ lista: 4zmiennych > 


10 FOR a=1i TO 3 

20 FOR b=0 TO 26 

30 MODE 1 

40 PEN a:BORDER b 

50 PRINT "pen"; a; "border"; h 

60 FOR c=i TO 500 

70 NEXT c,b,a 

run 
ROZKAZ: Zamyka pętlę FOR. Rozkaz ten może być anonimowy, lub 
może odnosić się do odpowiedniezn POR. Juk w powyższym nrzykła- 
dzie, /lista: 4zmiennych> musi mieć odwrotną kolejność w po- 
równaniu z występowaniem rozkazów Fuu, tak aby pętle "zagnież- 
dżone” nie przecinały się. 
Słowa kluczowe pokrewne: FOR, STEP, _TO 
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NOT 
NOT argument 


IF NOT "piotr" 4 "zenek" THEN PRINT "dobrze" ELSE PRINT "źle" 


źle 
IF NOT "kot" >"pies" THEN PRINT "dobrze" ELSE PRINT "źle" 
dobrze 


PRINT NOT -1 

0 

PRINT NOT O 

-1 
OPERATOR: Wykonuje operację logiczną na bitach liczb całkowi- 
tych. Neguje każdy bit argumentu. 

Lalsze informacje dotyczące logiki mogą być znalezione 
w 2. części rozdziału zatytułowanego "KW wolne; chwili ..." 
Słowa kluczowe pókrewne: AND, OR, XOR 


ON BREAK CONT 
ON BREAK CONT 


10 ON BREAK CONT 
20 PRINT "Program będzie kontynuowany nawet jeżeli spróbu- 
jesz go przerwać klawiszem ESC ": PRINT 

30 FOR t=1 TO 1000:NEXT:GOTO 20 

run 
NOZKAZ: Powoduje kontynuowanie wykonywania programu, pomimo 
przerwania klawiszem (ESC]. Należy być ostrożnym przy używa- 
niu tego rozkazu, ponieważ przerwać wykonywanie programu można 
wówczas wyłącznie przez wyzerowanie komputera, stąd program taki 
powinien hyć przed uruchomieniem zapisany na dysku. 

Działanie tego rozkazu może być zniesione w programie 
rozkazem ON ERFAK STOP. 
Słowa kluczowe pokrewne: ON BREAK GOSUB, ON BREAK STOP 
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ON BREAK GOSUB 
ON BREAK GOSUB Znumer linii> 


10 ON BREAK GOSUB 40 
20 PRINT "program jest wykonywany” 
30 GOTO 20 
40 CLS:PRINT "Dwukrotne naciśnięcie [ESCJ"; 
50 PRINT "wywołuje podprogram" 
60 FOR t=1 TO 2000:NEXT 
T0 RETURN 
run 
ROZKAZ: Powoduje skok do podprogramu rozpoczynającego się 
w linii o podanym numerze, w przypadku dwukrotnega naciśnię- 
cia klawisza (ESC). 
Słowa kluczowe pokrewne: ON BREAK CONT, ON BREAK STOP, RETURN 


ON BREAK STOP 
ON BREAK STOP 


10 ON BREAK GOSUB 40 

20 PRINT "program jest wykonywany" 

30 GOTO 20 

40 CLS:PRINT "Dwukrotne naciśnięcie ESC " 

50 PRINT "wywołuje podprogram" 

60 FOR t=i TO 2000:;NEXT 

70 ON BREAK STOP:RETUIN 

run 
ROZKAZ: Znosi działanie rozkazów ON BRFAK CONT i ON BRFAK GOSU6, 
tak, że klawisz [Esc] odzyskuje możliwość przerywania programu, 
W powyższym brzykładzie rozkaz ON BREAK GOSUB zadziała tylko 
raz, ponieważ jest następnie zniesiony przez linię 65 podproyra- 
mu przerwania. 
Słowa kluczowe pokrewne: ON BREAK CONT, ON BREAK GOSUB 


152 


ON FRROR GOTO 
ON ERROR GOTO 4Cnumer linii> 


10 ON FRROR GOTO 60 

20 CLS:PRINT "Jeżeli znajdziesz błąd, "; 

30 PRINT "wylistuj program" 

40 FOR t=1 TO 4000:NEXT 

50 GOTO 100 

60 PRINT "Znaleziono błąd w linii"; 

70 PRINT ERL:PRINT:LIST 

run 
ROZKAZ: Powoduje skok do linii o podanym numerze w przypadku 
wykrycia błędu w programie. 

Rozkaz ON ERROR GOTO © przywraca normalną detekcję błę- 
dów w BASIC'u, 
Zobacz również rozkaz RESUME 
Słowa kluczowe pokrewne: DERR, ERL, ERR, ERROR, RESUME 


ON wyrażenie? GOSUB 
ON /selektor)> GOSUB /lista:( numerów linii) 


10 PAPER O:PFN 1:INK O,1 

20 CLS:PRINT "WYKAZ OPCJI":PRINT 
30 PRINT "i-Zmiana obrzeża”:PIINT 
40 PRINT "2-Zmiana pióra":PRINT 
50 PRINT "3-Zmiana trybu”:PRINT 
60 INPUT "Dokonaj wyboru";x 

TO ON x GOSUB 90,110,130 

80 GOTO 20 

90 b:b-1:IF b KO THEN b=26 

100 BORDER b: RETURN 

110 p=p-1:IP p<2 THFN p=26 

120 INK 1,p:RETURN 

130 m=m-1:IF m<O THFN m=2 
140 WNODF m:RETURN 


run 


ROZKAZ: 
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Wybiera podprozgram, xtórego numer początkowej linii 


zależy od wartości (selektora> , Selektor powinien być wyre- 
żeniem dającym liczbę całkowitą w zakresie O do 255, Wartość 
(selektora) określa, który kolejny Cnumer liniQ 2 listy 
jest miejscem skoku, W powyższym przykładzie wybór 1 powoduje 


skok do 
130. 


linii 90, wybór 2 — skok do linii 110, a 3 - do linii 


Jeżeli wartość /selektora> jest równa zero, lub jast 


większa 


od liczby pozycji w liście, nie jest wybierany żaden 


podprogram. 
Słowa kluczowe pokrewne: RETURN 


ON wyrażenie» GOTO 


ON (selektor) GOTO Clista: 4 numerów linii> 


10 

20 

30 

40 

50 

60 

70 

80 

30 

100 

run 
ROZKAZ: 
zależny 
dającym 


CLS:PRINT "WYKAZ OPCJI":PRINT 
PRINT "i-Listowanie programu" ;:PRINT 
PRINT "2-Fdycja":PRINT 

PRINT "3-Katalog dysku”:PRINT 

INPUT "Dokonaj wyboru";n 

ON n GOTO 80,90,106 

GOTO 10 

LIST 

AUTO 

CAT 


Wybiera numer linii, do której następuje skok, w sposób 
od 4selektora>. (Selektory powinien być wyrażeniem 
liczbę całkowitą w zakresie 0 do 255. 


wartość selektora»> określa, który kolejny Ćnumer 


linii > 
wybór 1 


z listy jest miejscem skoku. W powyższym przykładzie 
powoduje skok do linii 80, wybór 2 - skok do linii 90, 


a 3 do lihit 100. 
Jeżeli wartość dselektora» jest równa zero, lub jest 


większa 
skok. 


od liczby pozycji w liście, nie jest wykonywany żaden 


Słowa kluczowe pokrewne: nie ma 
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ON SQ GOSUB 
ON SQ ( <kanał>) GOSUB numer linii 


10 ENY 1,15,-1,1 
20 ON SQ11) GOSUR 60 
30 MODE ":ORIGIN 0,0,200,440,100,300 
40 FOR x=1 TO 13:FRAMF:MOVF 330,200,x 
50 FILL x:N'XT:GOTOQ 40 
60 READ 8s:IF s=O THEN RFSTORF:GOTO 60 
70 SOUND 1,8,25,15,1 
80 ON Są(1) GOSUE 60:RFTURN 
90 DATA 50,60,90,100,35,200,24,500,0 
run 
ROZKAZ: Wywołuje podprogram w BASIC'u wtedy, kiedy jest wolne 
miejsce w danej kolejce (Queue) dźwięków (Sound). 
vyrsżenie 4kanał> powinno mieć jedną z wartości: 
1: dla kanału A 
2: dla kanału R 
4: ćGla kanału © 
Dalsze inform'cje dotyczące dźwięku można znaleźć w 2 części 
rozdziału zatytułowanezn "v wolnej chwili ...". 
Słowa kluczowe nokrewne: KETUHN, SOUND, SQ 


OPFNTN 
OPY'NIN /nazwa zbioru: 


1060 REM Otwarcie zbioru wejściowego z dysku 

20 OPENIN "datafile":INPU" k9,a,a$ 

30 CLOSFIN:PRINT "2. wartości są nastęfjujące:" 

40 PRISYT:PRINT B,a3 

run 

* ROZKAZ: Oteiera (OPIN) ztiśr wejściowy (INput) z dysku, d9 
użycia co © bieżącym programie. Zbiór wejśtiowy musi być zbio” 
rem ASCII. 

Powyższy przykład działe tylko wówczas, jeżeli na dysku 
został zanisany zbiór 2 nostępneco przykłedu (pod słowem klu- 
czowym OPENCUT). 

Słowe kluczowe pokrówne: CLOSTIN,EOF 
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OPENOUT 
OPENOUT Cnazwe zbioru > 


10 RFM Otwarcie zbioru wyjściowego na dysk 

20 INPUT "podaj wartość zmiennej liczhowej”;a 

30 INPUT "podaj wartość zmiennej tekstowej”; a$ 

40 OPENOUT "datafile" 

50 WRITF ++9,a,a$ 

60 CLOSEO0OUT:PRINT "Dane zosteły zapisane na dysku" 

run 
ROZKAZ: Otwiera (OPEN) zbiór wyjściowy (OUTput) na dysk. 
Błowa kluczowe pokrewne: CLOSEOUT 


OR 
(argument > OR (argument > 


IF "piotr" "zenek" OR "pies" Ykot" THEN PRINT "dobrze" 

FLSF PRINT "źle" 

dobrze 

IF "zenek" ( "piotr" OR "kot" > "pies" TEFN PRINT "dobrze" 

ELSE PRINI1 "źle" 

źle 

IF "piotr" C"zenek" OR "kot" > "pies" THEN PRINT "dobrze" 

ELSE PRINT "źle" 

dobrze 

PRINT 1 OR 1 

1 

PRINT O OR 1 

1 

PRINT 1 OR O 

1 
OPERATOR: Rykonuje operacje logiczne (0R - lub) na bitach liczb 
całkowitych. Dany bit wyniku jest równy 1 z wyjątkiem przypadku 
gdy dane bity argumentów są równe (. 

Dalsze informacje dotyczące loztki można znaleźć w 2. części 
rozdziału zatytułowanego "X wolnej chwili ..." 


Słowa kluczone pokrewne: AND, NOT, XxOR 
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ORIGIN 
ORIGIN 4x), Ły>[. < lewa > , 4 prawa> , Lgóra> ,Ć dół)>] 


10 MODF 1:BORDER 13:TAG 

20 OKIGIN 8,0,100,540,300,100 

30 GRAPHi1CS PAPFR 3 CLG 

40 FOR Xx=550 T6 -310 STEP -10 

50 MOVE x,206 

60 PRINT "To jast okno graficzne”; 

70 FRANE:NEXT:GOTO 10 

run 
ROZKAZ: Ustawie początek (ORIGIN) współrzędnych ekranu graficz- 
nego m pozycji określonej przez x> 1i(y>. 

Przez podanie ostatnich czterech opcjonalnych parametrów 
określa się wymiary okna graficznego. Jeżeli współrzędne 
określające okno graficzne opisują punkty leżące poza ekranem, 
koniec ekranu przyjmowany jest za koniec okna greficznego. 
Słowa kluczowe pcekrewne: CLG 


OLT 
OUT (numer portu , «wyrażenie określające liczbę całkowitą> 


0uT 48F 8F 4 „,4FF 
ROZKAZ: Wysyła wartość wyrażenia określającego liczbę całko- 
witą (w zakreste © do 255) do urządzenia zewnętrznego (ouT) 
o adresie podanyh w (numerze portu). 

kozkaz tet nie porinien być używany przez niedoświadczo- 
nego proeramistę. 
Słowa kluczowe pokrewne: INP, WAIT 


PAPER 
PASFR T[włwyrażenie określające strumień ,) ć atrament » 


10 MODLF Q:PEN O:INR 0,13 

20 FOR p=1 TO 15 

30 PA?FR p:CLSE 

40 ŁOCATE 7,12:PRINT "papier";p 
*0 FOI: t=1l TO 500:NEA7T t,p 


run 
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ROZKAZ: Ustala atrament tłe znakćw. Jeżeli znaki są wpisywane 
w ekran tekstowy, pole znaku jest wypełniane atramentem 
papieru (PAPER), zanim wpisany jest znak (chyba, że wybrane 
jest tło przezroczyste). 

Jeżeli pominięte jest wyrażenie określające strumien 
przyjmowany jest strumień tO. 

Liczba różnych atramentów papieru zależy oć trybu orzani- 
zacji ekranu (MODE). 
Słowa kluczowe pokrewne: GRAPHICS PAPER, INK, PEN 


PEEK 
PEEK ( (wyrażenie określające adres Y ) 


10 MODE 1:ZONE 7 

20 WINDOW 1,40,1,2:WINDOW łł1,1,40,3,25 

30 PRINT "adres pamięci" 

40 LOCATF 20,1:PRINT "zawartość pamięci" 

50 FOR n=0 TO 65535 

60 p=PEEK (n) 

70 PRINT $1,n,"($";HEFX$(n);")"; 

80 PRINT 4 1,TAB (20);p,"(5r";EFX$(p);")" 

90 NFXT 

run 
FUNKCJA: Podaje zawartość komórki pamięci o adresie określonym 
przez < wyrażenie określające adres)» , które powinno hyć w za- 
kresie 2.0000 do Ś,FFFF (0 do 67535). W kazdym przypadku PEEK 
podaje vartość odpowisdającą zawartości komórki nomięci haM 
(nie ROM) i wartość ta jest w zekresie +00 do —Fr (0 do 255) 
Słowa kluczowe pokrewne: POKE 


PEN 


PEN [ę<wyrażenie określające strumień >.) [<atrament>JT 
rodzaj tła>j 


10 MODT O:PAPTR 0:INK 0,13 

20 FOR p=1 TO 15 

30 PTN p:PRINT SPACE$ (47); "pióro";p 
40 FOR t=1 TO 500:NTXT t,p:GOTC 20 


run 
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ROZKAZ: Określa <atrament> (w zakresie O do 15), którym są 
pisane znaki w danym strumieniu (strumień 40 w braku określe- 
nia). Parmnmetr <rodzaj tła> może mieć wartość 1 (tło przezro- 
czyste) lub O (tło nieprzezroczyste). 

Każdy z dwóch ostatnich parametrów może być pominięty, ale 
nie ohydwa na raz. Jeżeli parametr jest pominięty, właściwość, 
którą określa, nie zmienia się. 

Słowa kluczowe pokrewne: PAPER 


PI 


PI 

PRINT PI 

3.14259265 
FUNKCJA: Podaje wartość stosunku obwodu okręgu do jego średnicy. 
Słowa kluczowe pokrewne: DFG, RAD 


PLGT 


PLOT Cwspółrzędna x) „Lwspółrzędna y> [ , tatrament)] 
[<,tryb rysowania>]] 


10 MODE 1:BPOKRDER O:PAPEK O:PFN 1 

20 INK O,0:INK 1,26:1INK 2,13,26:DFG 

20 FOR x=1 TO 360:0NIGIN 320,200 

40 DRAW 50 4xCOS(x),50 xSINix),1 

50 PLOT 100 xCOS(x),25 *SIN(x):NIX1 

60 OKHIGIN ©,0: t=TIME+700:WHILE TINE Lt 

70 PLUT RNL + 040,KNL 4 4GO:YTNL 

80 PLOT RNL+* 640, UNL%400,2 

30 GOTO 90 

run 
ROZKAZ: fMysuje nunkt ni. ekranie sreficzny: na nozycji określo- 
nej wartoŚściemi wsnółrzętnych. * rozkazie tym noze nyć pocany 
4atrament>, którym nunkt mo byt rysoramy (zakres © do 10) 

opcjonalny parametr Ctr:* rysowznie > określi rorczaj 
intera"cji atramentu z nunktem juz nerysowan;" na ekranie sró- 


ficznym. SĄ 4 trybx ryvsowani: 
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0: Normalny 

1: XOR (eXclusive OR) 

2: AND (1) 

3: OR (lub) 

Słowa kluczowe pokrewne: GRAPHICS PEN, PLOTR 


PLOTR 
PLLTR «wektor x) ,cwektor y> [,[catrament >JĘtryb rysow=nia>l] 


10 REM Za pomocą klawiszów kursora rysujemy linie 

20 BORDER O:GRAPHICS PEN 1 

30 MODE 1:PLOT 320,200 

40 IF INKFY (0)=0 THEN PLOTR 0,1 

50 IF INKEY (1)=0 THEN PLOTR 1,0 

60 IF INKFY (2)=0 THEN PLOTR 0,-1 

70 IF INKEY (8)=O THEN PLOTR -1,0 

80 IF INKEY (9)=0 THEN 30:RFM copy = zetrzyj 

90 GOTO 40 

run 
ROZKAZ: Rysuje punkt na ekranie graficznym na pozycji określo- 
nej przez podanie wektora przesunięcia w stosunku do bieżącej 
pozycji kursora graficznego. « rozkazie tym może być podany 
Katramenty , którym punkt ma by rvsowany (w zakresie O do 15). 

Opcjonalny parametr <tryt r;:sowenia > określe roczaj 
interakcji atramentu z punktami ju. narysorenymi na ekranie cra- 
ficznym. Są 4 tryby rysowanie 
0: Normalny 
1 XOR (eXclusive OR) 


2: AND (1) 

3: OR (lub) 

Słowa kluczowe pokrewne: GRAPNIC= ++ PLOT 

POKE 

POKYT <wyrażenie określające «ć7 ( "vrnzenie okre-lające 


liczbe całkowitą >» 
10 Fok m=46152 TO 65705 
26 POKF m,100 
30 NFXAT 


run 
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ROZKAZ: Wpisuje wartość wyrażenia określającego liczbę całko- 
mitą (w zakresie 0 do 255) bezpośrednio do pamięci RAM 
do komórki 6 wskazanym adresie. 

Rozkaz ten nie nowinien być stosowany przez niedoświadczo- 
nego programistę. 
Słowa kluczowe pokrewne: PFEK 


POS 
o05 ( j<wyrażenie określające strumień> ) 


10 MODE 1:BORDFR O:LOCATF 8,2 

20 PRINT "naciskaj klawisze kursora lewo/prawo" 

30 WINLO* 1,40,12,12:CURSOR 1,1 

40 FOR n=1 TO 19:PRINT CHR$ (9);:NFXT 

50 IN INKTY (1) <> -1 THEN PRINT Cim$ (9); 

60 IF INKFY (8) <> -1i THTN PRINT CHR$ (8); 

70 LOCATF % 1,2,24 

60 PKINT %+41,"pozycja horyzontalna"; 

90 PRINT ł1,"kursora tekstu ="; 

100 ?RINT 1, POS (+Ł0): GOTO 50 

run 
FUVKCJA: Podaje aktualną, horyzontalną pozycję (POSition) 
kursora tekstu w stosunku do lewego krańca okna tekstowego. 

Yyrażenie określające strumień MUSI być umieszczone w roz- 

kezie. 

os (73) nodaje aktualną horyzontalną pozycję karetki 
drukarki (1 jest pozycją skrajnie lewą). 

POS (4 9) noduje nozycję logiczną w strumieniu zbioru dysko- 
ego, to Jest liczbą znaków wysłanych licząc od ostatniego znaku 
CR (8200). 

Słowa kluczowe pokrevne: VPOS, RINI OW 


PRINT 


PRINT L*<ryrażenie określe jące strumień>, ) [<lista: 
pozycji do druku >] 
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10 a$ = "mały" 

20 bł = "ten ciąg jest nizco większy” 

30 PRINT a$; a$ 

40 PRINT a$, a$ 

50 PRINT 

60 PRINT b$; b$ 

70 PRINT b$, b$ 

run 
ROZKAZ: Drukuje (PRINT) listy: pozycji do druku w danym stru- 
mieniu (4Ł0 w braku określenia). 
Uwaga, W przypadku użycka średnika (;), który powoduje, że na- 
stępna (pozycja do druku> jest drukowana obok poprzedniej, 
BASIC sprawdza najpierw, czy następna pozycja do druku 
mieści się w tej samej linii. Jeżeli nie, drukowana jest ona 
w nowej linii, pomimo średnika. 
Uwaga, W przypadku użycia przecinka (,), który powoduje, że na- 
stępna pozycja do druku jest drukowana w następnej strefie 
tabulacji, BASIC sprawdza najpierw, czy poprzednie pozycja nie 
przekracza bieżącej strefy tahulacji.. Jeżeli tak, następna 
<pozycja do druku> jest drukowana w dalszej strefie. 


PRINT SPC 
PRINT TAB 


PRINT [% wyrażenie określające strumień» ,][< lista: < pozycji 
do druku>) [;] [ SPC ( <wyrażenie określające liczbę 
całkowitą) J] «lista: «pozycji do druku>j 


PRINT [R wyrażenie określające strumień» ,J[< lista: £ pozycji 
do druku>J[;] LTAB ( < wyrażenie określające liczbę 
całkowitąv))] [<lista: € pozycji do druku)] 


10 PKINT "tak działa funkcja SPC" 
20 FOR x=6 TO 15 

30 PKINT SPC (5) "a"; SPC (x) "b" 
40 NEXT 

50 PRINT "tak rfziału funkcja TAB" 
0 FOR n=6 TG 15 


1 
PRINT TAP (5) "a"; TAB (x) "b" 


80 NFXT 


run 


162 


SPC wpisuje tyle spacji (SPaCe), ile wynosi <wyrażenie 
określające liczbę całkowitą >. Następna pozycja z listy dru- 
konana jest tezpośrednio za spacjami (zakładając, że następna 
pozycja mieści się w linii). Stąd kończenie SPC średnikiem nie 
jest potrzebne. 

TAB (TABulacja) wpisuje spacje odliczając od lewego brzegu 

okna tekstowego tyle znaków, ile wynosi £ wyrażenie określające 
liczbę całkowitą> . Następna pozycja z listy drukowana jest 
bezpośrednio za spacjami (zakładając, że mieści się w linii). 
Stąd kończenie TAB średnikiem nie jest potrzebne. Jeżeli bieżąca 
pozycja drukowanego znaku jest większa od wartościćwyrażenia 
określającego liczbę całkowitąD> następuje przejście do nowej 
linii i przesunięcie do pozycji wyspecyfikowanej. 


PRINT USING 


PKTNT [ff <wyrażenie określające strumieńJjf< lista: « pozycji 
do drukuy] L:] LYSING <szablon formatu>][ < separator 
wyrażenia >] 


18 FOR x=1 TO 10 

20 n=100000 »(RND 5) 

30 PRINT "materiały"; USING "RERERERR „BR'>n 

40 NEXT 

run 
PRINT USING (drukuj stosując) pozwala wyspecyfikować format 
wydruku wyrażenia, kóóre ma być drukowane, Specyfikacja polega 
na podaniu Cszablonu formatu> oddzielonego od wyrażenia 
<separatorem> w postaci średnika lub przecinka, «Szablon 
formatu)» jest ciąztem tekstowym tworzonym z następujących 
"specvfikatorów pola formatu": 


Formaty liczbowe 
Dotyczące samych liczh: 
% Ka>dy znek $określa jedną cyfrę 
„ Przykładowy szeblon. w%tętęj żę 
. Określ» miejsce kropki dzieslętnej. 
Przykładowy szablon: siek tie, Fe 


/ 
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(Określa jedną cyfrę). Może występować tylko bezpośrednio 
PRZTD kropką dziesiętną. Oznacza, że cyfry przed kropką 
dziesiętną mają być podzielone na grupy po trzy cyfry 
oddzielone przecinkami. 

Przykładowy szablon: łłięiritik „. trib 


Dotyczące sąsiedztwa liczb: 
= (Określa dwie cyfry.) Oznacza, że bezpośrednio przed pierx- 


*x k 
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+x$ 


szą cyfrą lub kropką dziesiętną (po ewentualnym znaku + 
lub -), ma być drukowany znak ź. Uwaga, „« zajmuje jedno 
miejsce cyfrowe. 


Przykładowy szablon: 44 tti trie, „Fi 


(Określa dwie cyfry.) Oznacza, że ewentualne spacje z przodu 
liczby mają być zastąpione gwiazdkami 
Przykładowy szablon: % % tłtiikik,, FE 


(Określa trzy cyfry.) Kombinacja »* i że, to jest: gwiazdki 
z przodu i znak £ 
Przykładowy szablon: *k%żtkkryt,. Ri 


(Określa dwie cyfry.) Oznacza, że bezpośrednio przed pierw- 
szą cyfrą lub krópką dziesiętną (po ewentualnym znaku + 

lub -) ma być drukowany znak $. Uwaga, $ zajmuje jedno 
miejsce cyfrowe. 

Przykładowy szablon: Świe j. FE 


(Określa trzy cyfry.) Komhinzcja xi $$, to jest: gwiazdki 
z przodu i znak $ 


Oznacza, że ma być drukowany zn k liczby (+ cla dodatnich, 
- dla ujemnych). Znak - dla 1i:zb ujemnych jest, w braku 
określenia, drukowany z przodu liczty. Jeżeli + jest 
umieszczony z przodu szablonu, snak (+ lub -) jest druko- 
wany bezpośrednio przed liczbą 1 ewentualnyn oznaczeniem 
waluty = <£ lub $). Jeżeli + jest umieszczony na koncu 
szablonu, znak drukowany jest ze liczbą (1 ewentualnym 
wykładnikiem) 

Przykładowy szablon: x woła . tł + + 


tł 


164 


Może być umieszczony vyłącznie na końcu szablonu. Oznacza, 
że znak - ma być drukowany za liczbą ujemną (i wykładni- 
kiem). Jeżeli liczba jest docatnia, drukowana jest spacja. 
Znak - dla liczb ujemnych jest, w braku określenia, druko- 
wany przed liczbą, chyba, że szablon formatu określa 
inaczej. 


Przykładowy szablon: łkęśż,kkhi — 


Oznacza, że liczba ma hyć drukowana w postaci wykładniczej. 
4łf( w szablonie powinno zajmować miejsce PO anakach 
określających cyfry, ale PRZED ewentualnym znakiem + lub - 
na końcu szablonu. 


Przykładowy szablon: +$.Hekt 140 + 


£Szablon formatuydla liczb nie może przekraczać 20 znaków. 


Liczby są zaokrązlane do liczby miejsc określonych przez 


szablon. 


Jeżeli szablon formatu jest za mały dla wyrażenia 


wejściowego, na przykład: 


... 


PRINT USING "tKhHuH"; 12345678 
wydruk NIF jest skracany do długości szablonu, lecz jest 


poprzedzony znakiem « oznaczającym uchyhienie formatu. 


Formaty tekstowe 


l 


10 CLS:a$="abcdefehi jkimnopgrst" 

20 PRINT "wyrażenie wejściowes";a$ 

30 PRINT:PRINT "specyfikator !s ": 

40 PRINT USING "!";a$ 

50 PRINT:PRINT "specyfikator Xspzcjeń ="; 
60 PRINT USING "NN"; a$ 

70 PRINT:PRINT "specyfikator Ś4,= "; 

80 PRIN1 USTNG "$";a$ 

90 GOTO 90 


run 


Oznacze, że drukowany ma być tylko nierwszy znak tekstu 


Przykładowy szatlon: ! 
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N<spacje>| 
Oznacza, że drukowane ma być x pierwszych znaków tekstu, 
gdzie x jest równe długości szablonu (wliczając kreski ). 
Przykładowy szablon N N 


4 Oznacza, że ma być drukowany cały tekst. 
Przykładowy szablon: 2 
LSzablon formatu> dla tekstu nie może być dłuższy niż 255 znaków. 
LSzablonyformatuy> zarówno dla liczb, jak 1 dla tekstów mogą 
występować w postaci zmiennych tekstowych, na przykład: 


10 a$ ='żźkikkik  Ra' 

20 b$="!" 

30 PRINT USING a$; 12345.6789; 

40 PRINT USING b$; "groszy" 

run 

Dalsze informacje dotyczące formatowania wydruków można 
znaleźć w 2 części rozdziału zatytułowanego "%* wolnej chwili..." 
Słowa kluczowe pokrewne: SPC, TAB, USING, ZONE 


RAD 


RAD 

RAD 
ROZKAZ: Ustala tryb liczenia kątów w EADianach. BASIC jest 
ustawiony na radiany po włączeniu do sieci, po wyzerowaniu kompu- 
tera oraz po rozkazach NFW, CLEAN, LOAD, RUN itp. 
Słowa kluczowe pokrewne: ATN, COS, ŁEG, SIN, TAN 


RANDOMIZE 
RANDOMIZF [<wyrażenie liczbowe>] 


RANDOMIZE 123,456 
PRINT RND 
0.258852139 
ROZKAZ: Ustanawia wartość początho funkcji RND określoną 


wyrażeniem liczbowym . Generato' zb lesowych BASIC'a daje 
pseudolosową sekwencję, » której | ' liczba zależy od poprzed- 
niej liczby, zaczynając od danej liczby początkowej. Sekrencja 


jest zawsze taka sama. RANDOMIZE ustala nową "artość początkową 
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dla generatora liczb lozowych,. równą wartości wyrażenia licz- 
bowego> , lub, jeżeli (wyrażenie liczbowe> jest poninięte, 
równą wartości wprowadzonej przez użytkownika. 

RANDCMIZE TIME daje sekwencję trudną do powtórzenia. 

Słowa kluczowe pokre«ne: RND 


REAL 
R£EAD ( lista : € zmiennych> 


10 FOR nz=i TO 8 

20 READ a$,e 

30 PRINT a$;* ";:SOUND 1,c:NEXT 

40 DATA to,478,jest,426,8,379,dźvięków 

50 DATA 358,muzycznej,319,skali,284,C,253,Dur,239 

run 
ROZKAZ: Czyta (READ) dane ze zbiorów DATA i podstawie je do 
zmiennych, sSutomatycznie przesuwając "wskaźnik" w zbiorze 
LATA na następną pozycję. Rozkaz RESTORE powoduje powrót 
"wskaźnika" ne początek zbioru DATA. 

Dalsze inforracje dotyczące danych można znaleźć w 2 części 
rozdziału zatytułowanego "W wolnej chwili ..." 
Słowa kluczowe nokrewne: DATA, RESTORE 


RI LFASF 
RELEASE £ kanały dźwiękoweX- 


10 SOUND 65,1000,100 

20 PRINT "Naciśnij R, żeby zakończyć dźwięk” 

30 IF INKFY (50) =-1 THEN 30 

40 RFLFASF 1 

run 
ROZKAZ: Zwalnia (RFLTASE) kanały dźwiękowe, które są w Stanie 
podtrzymania po rozkczie SOUND 

oaremetr (kanały tŹźwiękowey musi mieć wartość całkowitą 
w zakresie 1 do 7. Wartości te powodują: 
1: Zwalnia kanzł A 
2: Zwałnie kencł P 
3 


Zwalnie kanał A 3 B 
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4: Zwalnia kanał C 

5: Zwalnia kanał A iC 

6: Zwalnia kanał B i C 

7: Zwalnia kanał A, Bi C 

Dalsze informacje dotyczące dźwięku można znaleźć w 2, części 
rozdziału zatytułowanego "W wolnej chwili ..." 

Słowa kluczowe pokrewne: SOUND 


REM 
REM reszta linii > 


10 REM Mega-monstra, najeźdźcy z intergalaktycznej 

hiperprzestrzeni. Gra opracowana przez MASOFT 

20 REM Copyright AMSOFT 1985 
ROZKAZ: Wprowadza komentąrze (REMark) do programu, < Reszta 
linii) jest ignorowana przez BASIC i może zawierać dowolne 
znaki, również dwukropki :, które normalnie adzielają 
rozkazy, 

Zamiast REM można używać znaku pojedynczego cudzysłowu 
we wszystkich zastosowaniach z wyjątkiem instrukcji DATA. gdzie 
jest traktowane jako część ciągu tekstowego. 

Słowa kluczowe pokrewne: nie ma 


REMAIN 
REMAIN ( 4numer licznika> ) 


10 AFTER 500,1 GOSUB 40 

20 AFTER 100,2 GOSUB 50 

30 PRINT "program jest wykonywany":GOTO 30 

40 RFM ten podprogram nie będzie wywołany, ponieważ 
jest zakazany w linii 80 

50 PRINT:PRINT "Licznik 1 będzie teraz "; 

60 PRINT "zatrzymeny przez KEMAIN." 

70 PRINT "Bozostało"; 

80 PRINT REMAIN (1); 

90 PEINT "jednostek czasu.” 
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FUNKCJA: Podaje pozostałą (REMAJNing) zawartość licznika o da- 
nym numerze (w zakresie O do 3) 1 zatrzymuje licznik. 

Dalsze informacje dotyczące przerwań można znaleźć w 2, 
części rozdziału zetytułowanego "W wolnej chwili ..." 
Słowa kluczowe pokrewne: AFTER, DI, EI, FVERY 


RENUM 
RENUM (Cnowy numer linii >J[,[stary numer liniiyj [ ,cinkrement)j] 


10 CLS 

20 REM to będzie linia 123 

30 REM to będzie linia 124 

40 REM to będzie linią 125 

RENUM 123,20,1 

LIST 
ROZKAZ: Powoduje przenumerowanie (RFNUMbering) linii programu, 
Parametr (stary numer linii> określa aktualnie istniejącą 
linię, od której ma się rozpocząć przenunerowanie. Jeżeli 
«stary numer linii> jest pominięty, nrzenumerowane zostaną 
linie od początku nrogramu 

Parametr nowy numer linii») określa nowy numer linii, 
od której rozpoczyna się przenumerowanie. Jeżeli parametr ten 
jest pominięty, przenumerowany program zaczyna się od linii 10. 

KInkrement> określa krok pomiędzy przenumerowanymi linia= 
mi. Jeżeli narametr ten jest pominięty, przenumerowane linie 
różnią się o 10. 

RFNUM uwzelędnia GOSUB, GOTO 1 inne odwołania do numerów 
linii. Nie zmieniane są natomiast odniesienia do numerów linii 
wewnątrz wyrażeń tekstowych (na przykład w rozkazach KEY), ani 
odniesienia w komentarzach 1[XN, ani < wyrażenia określające 
numer linii ) » rozkazach CIAIN lub CHAIN MERGE. 

Numery linii mogą mieć wartosci od 1 do 65535, 
Słowa kluczowe pokrewne: ZFL'T"T, LIST 


RESTORE 
RFSTOKT Ć numer linii> 
10 REAL a$:PRINT a$;" ". 
20 RESTORF 50 
30 FOR t=1 TO 500:NFXT:GOTO 10 
40 DATA odtworzone cene mogą być czytane 


50 DATA od nowa 
run 
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ROZKAZ: Odtwarza (RESTORE) początkową pozycję "wskaźnika" linii 
DATA 0 numerze podanym opcjonelnie. Jeżeli numer linii 
nie jest podany, rozkaz przesuwa "wskaźnik" na początek pierw 
szej linii danych. 

Dalsze informacje dotyczące danych można znaleźć w 2. częś- 
ci rozdziału zatytułowenego "W wolnej chwili ..." 
Słowa kluczowe pokrewne: LATA, RPAD 


RESUME 
RESUME [4 numer liniiVj 


10 ON FRROR GOTO 60 

20 FOR x=10 TO O STFP-1:PRINT 1/x:NEXT 

30 END 

40 PRINT "chodź tutaj no stwierdzeniu błędu" 

50 END 

60 PRINT "błąd nr."; ERR; "w linii”; FRL 

T0 RESUME 40 

run 
ROZKAZ: Przywreca (RISUMF) normalne "ykonywanie proeramu no 
stwierdzeniu i onracoweniu przez rozkaz ON "'RLOR GOTO błędu. 
Jeżeli <numer linii> nie jest nnaceny, sykonypanie nrozżremu 
rozpoczyna się na nowo oć lin1i, » ktorej hłąd został wykryty. 
Spróbuj usunąć ( numer linii? 


70 RESUME 
run 
Słowa kluczowe nokrewne: 1|Fku, 1:.. ThhOR, GN FHrOR GOTO, 


RFSUME NEXT 


RESUMF NEXT 
10 ON FRROR GOTC 00 
20 PRINT "za każcym ruzem nacisnij REIURN 
30 INPUT "1";a 
40 INPUT "e";a 
%0 inpot "9"; a:RFXN błąć składni! 


60 TNPUT "4";a 


70 INPUT "5";a 
80 END ' 
90 PRINT "błąd nr."; ERR; "w linii"; ERL 
100 RESUMIT NEXT 
run 
ROZKAZ: Przywraca (RESUME) normalne wykonywanie programu po 
stwierdzeniu i opracowaniu nrzez rozkaz ON FRROR GOTO błędu 
RFSUME NFXT powoduje powtórne rozpoczęcie wykonywania pro- 
gramu od linii następnej (NFXT) za linią, w której błąd został 


wykryty. 

Słowa kluczowe pokrewne: DERK, ERL, ERROR, ON ERROR GOTO, 
RESUME 

RETURN 

RETURN 


10 GOSUB 50:PRINT "już po podprogramie":END 

50 FOR n=1 TO 20 

60 PRINT "podprogram" 

70 NEXT:PRINT 

80 RETURN 

run 
ROZKAZ: Zaznacza koniec podprogramu BASIC powraca (RETURN) 
z podprogramu do instrukcji bezpośrednio za rozkazem GOSUB, 
który wy:ołał podprogram, 
Słowa kluczowe pokrewne: GOSUB 


RIGIT$ 
RIGHTS ( (wyrażenie tekstowe> , Cżądana długość > ) 


10 MOLF 1:a$="C?PC6128 computer" 

20 FOit n=1 TO 16:LOCATE 41-n,n 

30 PRINT RIGIHT$ (a$,n) 

40 NFXT 

run 
FUNKCJA: Podaje ciąg Zników tekstozych o długości (w zakresie 
O do 255) określonej nrzez parametr 4żądana długość» , który 
jest prawą (RIGHT) częścią Cwyrażenia tekstowego» . Jeżeli 
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(wyrażenie tekstowe> jest krótsze niż 4żądana długość , po- 
dawane jest całe wyrażenie tekstowe 
Słowa kluczowe pokrewne: LEFT$, MID$ 


RND 


RND [ ( 4 wyrażenie liczbowe > )] 


10 RANDOMIZE 

20 FOR x»i TO -1 STEP -1 

30 PRINT "parametr rnd=";x 

40 FOR nzi. TO 6 

50 PRINT RND (x) 

60 NEXT n,x 

run 
FUNKCJA: Podaje następną liczbę z sekwencji liczh losowych 
(RaNDom), jeżeli (wyrażenie liczbowe» jest dodatnie lub 
jeżeli nie jest specyfikowane. 

Jeżeli wyrażenie liczbowe> ma wartość zero, RND po- 
daje kopię ostatniej wygenerowanej liczby losowej. 

Jeżeli (wyrażenie liczbowe» ma wartość ujemną, rozpoczy 
nana jest nowa sekwencja liczb losowych, z której podawana jest 
pierwsza liczba. 

Słowa kluczowe pokrewne: RANDOMIZE 


ROUND 
ROUND ( Łwyrażenie liczbowe> [, 4 miejsca dziesiętne ]) 


10 FOR n=4 TO -4 STEP -1 

20 PRINT ROUND (1234,5678,n), i 

30 PRINT "z dokładnością do"; n;"miejsc dziesiętnych" 

40 NEXT 

run 
FUNKCJA: Zaokrągla wyrażenie liczbowe do liczby ( miejsc 
dziesiętnych> . Jeżeli pararetr «miejsca dziesiętne» jest 
ujemny, liczba jest zaokręczlana tak, że przed kropką dziestętną 
spisywzna jest określona miejscemi dziesiętnymi liczbe zer. 
Słowa kluczowe pokrewne: ABS, CINT, FIX, INT 
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FUN 
RUN «wyrażenie tekstowe> 


RUN "disc" 
ROZKAZ: Ładuje prozram typu BASIC lub binarny z dysku i rozpo- 
czyna wykonyranie. Jakikolwiek wcześniej załadowany program 
Jest usuwany z pamięci. 

Programy zabezpieczone mozą być uruchamiane w ten sposób. 
Słowe kluczowe pokrewne: LOAD 


RUN 
RUN [cnumer linii>J 

RUN 200 
KOZKAŻ: Nozpoczyna wykonywanie procramu, napisanego w języku 
BSSIC 1 umieszczonego w pemięci, od linii o wskazanym numerze, 
lub oc początku, jeżeli numer linii nie jest podany. Rozkaz 
NUN powocuje wyzerowanie wszystkich zmiennych. 

Protramy zabeznieczone nie mogą być uruchamiane w ten 
snossb (po załadorvaniu). 
<łowa kluczowe pokrewne: CONT, FND, STOP 


SAVE 
SAVE Cnazwa zhbioru»[, 4tyn »'ioru>][ , Cparametry binarne] 


SAVr "discfile.xxyz" 
zunpisuje na cysku aktius: 'rogram pamięci jako normalny, 


niezoteznieczony zhiór tyn: iz: 


SaVt *"discfile,xyv2żz",F 

zepisuje ne dysku zc”: zany zbiór typu BASIC 

SAVI *"discfile.xvz",ż 
... Zepisuje na dysku zbl r ou AŚCII. 

SAVI "disecfile.xyz",l.r' *-,1000,500i 
... zapisuje na Gysku zbiór 'inerny, W tym przykładzie zapi= 
suje ne dysku zawartość namieci od adresu 8000, przy czym 
dłucrość zbioru wynosi 3000 bejtyww, 5001 jest opcjonalnym 3d- 


resam vejsciovym, od któreso orozram ma hyć uruchamiany. 
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ROZKAZ: Zapisuje program z pamięci na dysk Zbiór Binarny jest 


częścią pamięci przepisaną na dysk. Parametry Binarne są 
następujące: 


<adres początkowy> , «długość zbioru>  ,<adres wejściowy. 
Pamięć ekranu może być również zapisana na dysku jako zbiór 
Binarny. Znane jest to jako screen dump i może być wykonane 
rozkazem: 

SAVE "ekran", B, 4, C000, £ 4000 
Ff celu załadowania zbioru z powrotem do pamięci ekranu: 

LOAD "ekran" 
Słowa kluczowe pokrewne: CHAIN, CHAIN MFRGE, LOAD, MERGE, RUN 


SGN 
SGN ( <wyrażenie liczbowe> ) 


10 FOR n=200 TO -200 STFP -20 

20 PRINT "dla wartości";n 

30 PRINT "SGN daje wynik:"; SGN (n) 

40 NEXT 

run 
FUNKCJA: Podaje znak (SiGN) <wyrażenia liczbowego» . iynik 
jest równy -1 dla liczb ujemnych, O dla wartości zero i 1 dla 
liczb dodatnich. 
Słowa kluczowe pokrewne: ABS 


SIN 
SIN ( Gwyrażenie liczbowe > ) 


10 CLS:DEG:ORIGIN 0,200 
20 FOR n=0 TO 720 
30 y=SIN (n) 
40 PLOT n %640/720, 1984 y:NEXT 
50 GOTO 50 
run 
FUNKCJA: Oblicza SINus <wyrażenia liczbowego? . 
Uraga, rozkazy DEG i RAD przełączają komputer na liczenie 
kątór odpowiednio w stopniach i radianach. 
Słora kluczowe pokrewne: ATN, COS, DEG, RAD, TAN 
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SOUND 


SOUND określenie kanału> , € okres tonu>[ , ( czas trwania» 
C,cgłośność > [. <otwiednia Ełośności> [,< obwiednia 
tonu> [,< szum>JJ]]] 


10 FOR z=0 TO 4095 
20 SOUND 1,z,1,12 
30 NEXT 
run 
ROZKAZ: Programuje dźwięk. Rozkaz ten ma następujące parametry; 


Parametr 1: (określenie kanału> 


Tartość tego parametru musi być liczbą całkowitą w zakresie 

1 do 255. Lziałanie parametru określone jest przez poszczególne 

bity parametru w sposób następujący: 

Bit 0: (dziesiętnie 1) wyślij cęwięk do kanału A (najmniej 
znaczący bit) 

Bit 1: (dziesiętnie 2) wyślij dźwięk do kanału B 

Bit 2: (dziesiętnie 4) wyślij ćźwięk do kanału C 

Bit 3: (dziesiętnie 8) "rendezvous" z kanałem A 


Bit 4: (dziesiętnie 16) "rendezvous" z kanełem B 

Rit 5: (dziesiętnie 32) *rendezvous" z kanałem C 

Bit 6: (dziesiętnie 64) podtrzymanie kanału dźwięku 

Bit 7: (dziesiętnie 128) wyzerowanie kanału dźwięku (najbar- 


dziej znaczący bit) 
Stąd wartość (określenia kanału > równa 68, na przykład, znaczy: 
Wyślij dźwięk do kanału C(4) z podtrzymaniem (64) 


Parametr 2: ( okres tonu> 


Perametr ten określa wysokość dźwięku lub innymi słowami "jaka 
to nuta" (to jest: do,re,mi,fa,so itd.). Każdej nucie przypisana 
jest liczba, czyli właśnie Cokres tonu>. Zobacz w rozdziale 
zatytułowanym "Nieco użytecznych informacji ..." 


Parametr 3: Cczas trwania» 


Parametr ten określa, jak długo brzmi dźwięk. Rartość parametru 
określa czas w jednostkach 0,01 sekundowych. Przy pominięciu 
tego parametru przyjmowana jest wartość 20 odpowiadająca 1/5 
sekundy. 
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Jeżeli €czas trwania jest równy zero, dźwięk brzmi do 
końca podanej .ohwiedni głośności. 

Jeżeli <czas trwania» jest ujemny, podana obwiednia głoś- 
ności ma być powtarzana ABS ( tczas trwania> ) razy. 


Parametr 4: Lgłośność > 


Parametr ten określa początkową głośność dźwięku. Wartość 
<głośności> powinna być od 0 do 16. Głośność 0 oznacza 
wyłączenie głosu, 15 - maksimum. W przypadku braku tego para- 
metru przyjmowana jest wartość 12. 


Parametr 5: 4obwiednia głośności» 


Jeżeli głośność ma zmieniać się podczas trwania dźwięku, nale- 
ży podać numer obwiedni głośnościy utworzonej oddzielnym 
rozkazem ENV. W praktyce można utworzyć do 15 różnych obwiedni 
głośności o numerach od 1 do 15. Podanie numeru < obwiedni 


głośności y w rozkazie SOUND powoduje wysnołanie odpowiedniej 
obwiedni. 


Zobacz opis rozkazu ENV. 


Parametr 6: € obwiednia tonu > 


Jeżeli wysokość tonu ma się zmieniać podczas trwan.: dźwięku, 
należy podać numer obwiedni tonu> utworzonej oddzielnym roz- 
kazem ENT. W praktyce można utworzyć do 15 różnych obwiedni 
tonu o numerach od 1 do 15. Podanie numeru 4<obwiedni tonu > 

w rozkazie SOUND powoduje wywołanie odpowiedniej obwiedni. 
Jeżeli, w rozkazie ENT, numer obwiedni został określony jako 
ujemny, parametr Cobwiednia tonu> w rozkazie SOUND powinien 
być równy wartości bezwzględnej tego numeru (to jest bez znaku 
sinus). 

Zobacz opis rozkazu FNT. 


Parametr 7: Lszum> 


Do dźwięku może być docany szum biały o zakresie vidma zmie- 
nianym wartością parametru (szum? . wartość ta powinna być 
* zakresie O do 31. 
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Dalsze informacje dotyczące dźwięku można znaleźć w 2, częł« 
ci rozdziału zatytułowanego "W wolnej chwili ..." 
Słowa kluczowe pokrewne: ENT, ENV, ON SQ BOSUB, RELEASE, SQ 


SPACE$ 
SPACE$ ( wyrażenie określające liczbę całkowitą> ) 


10 MODF 1 

"20 PRINT "Daj 9 spacji pomiędzy gobą”; 

30 PRINT SPACEŚ (9); 

40 PRINT "i mną!" 

run 
FUNKCJA: Tworzy ciąg spacji o długości (w zakresie O do 255) 
podanej w <wyrażeniu określającym liczbę całkowitą). 
Słowa kluczowe pokrewne: SPC, STRING$, TAB 


SPC 
(Patrz PRINT SPC) 


SPEED INK 
SPEEL INK (okres 1)», (okres 2 > 


10 BORDER 7,18 

20 FOR i=30 TO 1 STEP -1 

30 SPEED INK i,k 

40 FOR tai TO 700:NEXT t,i 

run 
KOZKAZ: Ustala jak długo atrament ma dany kolor (dotyczy atra- 
mentów o dwóch przełączanych kolorach określonych rozkazem INK 
lub BORLER). COkres 1) określa czas (w jednostkach 0,02 
sekundowych) dla pierwszego koloru, Cokres 2>  - dla drugiego 
koloru. 

Należy uważać, przy doborze kolorów przełączanych i ich 
okresów, ponieważ mogą wystąpić efekty hipnotyczne. 
Słona kluczowe pokrewne: BORDER, INK 
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SPEED KEY 
SPEED KEY opóźnienie atartu> , «okres powtarzania» 


10 CLS:POR k=7 TO 1 STEP -2 

20 PRINT "wpisz swoje imię, następnie [[RETURN] * 

30 SPEED KEY k,k 

40 LINE INPUT a$:NEXT 

50 PRINT "Śmieszne imię!" 

run 
ROZKAZ: Ustala czas automatycznego powtarzania zgłoszenia na- 
ciśnięcia klawisza. Parametr opóźnienie startu> określa czas 
(w jednostkach 0,02 sekundowych) pomiędzy naciśnięciem klawisze, 
a wystartowaniem automatycznego powtarzania. Parametr okres 
powtarzania y określa czas pomiędzy kolejnymi zgłoszeniami da- 
nego klawisza. 

SPEED KEY działa tylko na klawisze, które mają autonatyczne 
powtarzanie ustawione domyślnie, lub którym ustawiono automa— 
tyczne powtarzanie rozkazem KEY DEF. 

W przypadku używania małych wartości opóźnienia startu), 
rozsądnym jest wstępne zaprogramowanie jednego z klawiszów cyfro- 
wych 0+-9 na powrót do "normalnych parametrów" 30,2. Można to 
osiągnąć rozkazem: 


KEY O, "SPEED KEY 30,2)+CHR$( 13) 
.„.. który ustawi parametry początkowe po naciśnięciu [o 
Słowa kluczowe pokrewne: KFY DEF 


SPEED WRITE 
SPEED WRITE € wyrażenie określające liczbę całkowitą > 


SPEED WRITE 1 
ROZKAZ: Określa szybkość zapisu na taśmie magnetofonowej (je- 
żeli dołączony jest magnetofon). Szybkość zapisu na taśmie jest 
równa 2000 bodów (bitów na sekundę), jeżeli wartość ( wyrażenia 
określającego liczbę całkowitą > wynosi 1, lub 1000 bodów 
(szybkość ustawiana w braku określenia), jeżeli wartość <wyra- 
żenia > jest równa 0. Przy ładowaniu z taśmy magnetofonowej 
komputer automatycznie wybiera właściwą szybkość odczytu. 
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Dla zwiększenia niezawddności zapisu-odczytu danych polee 
ca się używać SPEED FRITE O (ustawiane automatycznie w braku 
określenia). 

Rozkaz SPEED WRITE nie ma wpływu na operacje z dyskami. 
Słowa kluczowe pokrewne: OPFNOUT, SAVE 


SQ 
Sq ( Lkanał> ) 


10 SOUND 65,100,100 

20 PRINT SQ (1) 

run 

67 
FUNKCJA: Podaje stan kolejki dźwiękowej (Sound Queue'-) dla 
danego /kanału> . Kanał musi być wyrażeniem dającym jedną 
z wartości: 

1: dla kanału A 
2: dla kanełu B 
4: dla kenełu C 
Fynikiem funkcji SQ jest liczba całkonita, której bity posta”* 
binarnej oznaczają: 
Bity 0, 1 1 2: liczba wolnych miejsc « kolejce 
nity ”, 4 1 $: stan "rendezvous" pierwszego dźwięku w kolejce 
zit 6: stan podtrzymania pierwszego dźwięku w kolejce 
Bit 7: stan aktywny kanału 

gdzie Bit O jest najmniej znaczący, Bit 7 najbardziej zna- 
czący. 

Z powyższego określenia wynika, że, jeżeli Bit 6 jest i, 
Bit'7 nie może hyć 1 i odwrotnie. Podobnie, jeżeli Bit 3, 4 
luh 5 jest 1, Bity 6 1 7 nie mogą być 1. 

Dalsze infornscje dotyczące dźwięku można znaleźć w 2. 
części rozdziału zatytułowanezo "W wolnej chwili ...". 


Słowe kluczowe nokrewne: ON SQ GOSUB, SOUND 


SqR 
SQR ( Lwyrażenie liczbore> ) 


PRINT SCR (9) 
A 
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FUNKCJA: Podaje wartość pierwiastka kwadratowego (SQuare Root) 
(wyrażenia liczbowego) 
Słowa kluczowe pokrewne: nie ma 


STEP 
(Patrz FOR) 


STOP 

STOP 
10 POR n=i TO 30: PRINT nsNEXT 
20 STOP 
30 FOR n=31 TO 60:PRINT n:NEXT 
run 
cont 


ROZKAZ: Zatrzymuje wykonywanie programu, ale pozostawia BASIC 

w stanie, który umożliwia jego kontynuację rozkazem CONT, STOP 
może być używany do zatrzymywania programu w określonym miejscu 
przy jego uruchamianiu. 

Słowa kluczowe pokrewne: CONT, END 


STRŚ 
STRĘ ( Cwyrażenie liczbowe? ) 


10 a=$PF:REM 255 hex 

20 b=QX1111:REM 15 binarnie 

30 c$='x kz! 

40 PRINT c$+STR$(a+b)+c$ 

run 

%R270 %FR 
FUNKCJA: Przetwarza wyrażenie liczbowe na ciąg cyfr dziesięt- 
nych, 
Słowa kluczowe pokrewne: BIN$, DEC$, HEX$, VAL 


STRINGE 
STRING$ ( Jdługość7 , (specyfikator znaku >) 


PRINT STRING$ (40,"X") 
R RER e Te e e e e a z Ek e nr pk 
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FUNKCJA: Daje wyrażenie tekstowe składające się z wyspecyfiko. 
wanepo znaku powtórzonego Kdługość> -krotnie (od O do 255), 
twszga, powyższy przykład może być napisany również: 


PRINT STRINGŚ (40,42) 


zdzie Cspecyfikator znaku» 42 odpowiada wartości ASCII 
znaku k. Jest to równoważne zzpisowi PRINT STRING (40,CHR$(42)) 
Słowa kluczowe pokrewne: SPACEŚ 


SWAP 


(Patrz WINDOW SWAP) 


SYMBOL 
SYMROL (numer znaku? , / lista: ćrzędów> 


10 MODF 1:SYMBOL AFTER 105 
20 rząd 1=255:RTM binarnie 
30 rząd 2=129:REM binarnie 
40 rząd 3=189:RFM binarnie 
50 rząd 4:153:REM binarnie 
60 rząd 5=153:REM binarnie 
70 rząd 6=189:REM binarnie 
80 rząd 7=129:REM binarnie 
40 rząd 8=255:RFM binarnie 1 1 1 11111 
100 PRINT "Linia 110 redefiniuje literę "i" (105) 
vpisz kślka liter "i" i popatrz! Potem wylistuj 
program" 
110 SYMBOL 105, rząd 1, rząd 2, rząd 3, rząd 4, rząd 5, 
rząd 6, rząd 7, rząd 8 


a a A om A M 
O © © O O © > 
O m OO km O bk 
O m h k m O 
O h b m m O m 
O k OO EO 
hh O © O O O © 
R R h k kk k ML 


run 
NOZKAZ: Redefiniuje kształt znaku na ekranie, Każdy z parametrów 
musi dawać liczbę całkowitą w zakresie O do 255. 

lla nowo definiowanego znaku komputer musi przeznaczyć 
wpierw miejsce w pamięci. Czyni się to rozkazem 


SYWNOŁ AFTER x 
gdzie x jest równe lub mniejsze od numeru znaku, który 
ms być redefiniowany. 
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Następnie wydaje się rozkaz SYMBOL, którego pierwszym para 
metrem jest numer znaku x. 

Bez względu na to, czy wartość x określa znak wpisywany 
bezpośrednio z klawiatury, czy nie, nowo zdefiniowany znak 
może być wydrukowany na ekranie rozkazem: 


PRINT CHR$( x) 
Po SYMBOL x, występuje do 8 parametrów, które określają indy- 
widualnie 8 kolejnych, licząc od góry, poziomych rzędów znaku. 
Każdy z parametrów może być w zakresie O do 255, Postać binarna 
xażdego narametru określa wzór danego rzędu znaku. 

Na przykład, jeżeli pierwszy z 8 parametrów jest równy 1, 
to wzór najwyższego rzędu jest określony liczbą binarną 00000001. 
Rząd podzielony jest na 8 sekcji odpowiadających ośmiu bitom 
liczby binarnej. Jeżeli na pozycji danej sekcji jest 1, sekcja 
ta jest drukowana w kolorze pióra. Jeżeli na pozycji danej 
sekcji jest 0, sekcja ta jest drukowana w kolorze papieru (nie 
jest widzialna). W przykładzie najwyższy rząd ma kropkę w pra- 
wej skrajnej sekcji. Kontynuując przykład określamy następne 7 
parametrów jako 3, 7, 15, 31, 63, 0, 0. Postaci binarne tych 
8 parametrów są następujące: 


parametr (rząd) 1:00000001 binarnie: (1 dziesiętnie) 
parametr (rząd) 2:00000011 hinarnie: (3 dziesiętnie) 
parametr (rząd) 3:00000111 binarnie: (7 dziesiętnie) 
parametr (rząd) 4:00001111 binarnie: (15 dziesiętnie) 
parametr (rząd) 5:00011111 binarnie: (31 dziesiętnie) 
parametr (rząd) 6:00111111 binarnie: (63 dziesiętnie) 
parametr (rząd) 7:00000000 binarnie: (0 dziesiętnie) 
parametr (rząd) 8:00000000 binarnie: (0 dziesiętnie) 

Patrząc na rozkład zer i jedynek'w powyższym przykładzie 
można określić kształt nowego znaku. Przypiszmy te parametry 
znakowi o numerze 255 rozkazem: 


SYMBOL 255,1,3,7,15,31,63,0,0 
Uwaga, wartość O ostatnich dwóch parametrów pozwala na 
skrócenie zapźśu: 


SYMBOL 225,1,3,7,15,31,63 
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Uwaga, parametry mogą być zapisane w postaci binarnej, co 
eliminuje konieczność konwersji zaprojektowanego wzoru znaku 
na liczby dziesiętne (należy pamiętzć oprzedrostku X 
oznaczahącym liczby binarne). Na przykład: 


SYMBOL 255, £X00000001, $,X00000011, 2 X0G000111, 
$,X000011i1, Q X00011111, ,X00111111 
... Teraz, żeby zobaczyć znak: 


PRINT CHk$ (255) 

Przypisanie powyższych parametrów znakowi wpisywanemu 
z klawiatury powoduje, że nowy znak pojawia się przy każdym 
naciśnięciu na właściwy klawisz oraz przy każdej próbie wydru- 
kowania starego znaku, 

Dalsze informacje dotyczące znaków definiowanych przez 
użytkownika można znaleźć w 2 części rozdziału zatytułowanego 
"u wolnej chwili ..." 

Słowa kluczowe pokrewne: SYMROL AFTFR 


SYMROL AFTFR 
SYMBOL AFTTR Cwyrażenie określające liczbę całkowitą > 


10 CLS 

20 SYMROL AFTER 115 

30 PRINT "Linia 40 redefiniuje s"; 

40 SYMBOL 115,0,56,64,48,8,8,112 

50 PKINT "na s" 

60 PRINT "Usuń tę definicję s, pisząc: SYMBOL AFTER 240" 

run 
ROZKAZ: Określa liczbę znaków, które mogą być definiowane przez 
użytkownika (w zakresie 0 do 256). Wstępnie wartość ta wynosi 
240, co caje 16 znaków, które mogą być definiowane przez użyt- 
kownika (od 240 do 255). Jeżeli (wyrażenie> ma wartość 32, 
wszystkie znaki od 32 do 255 mogą być redefiniowane. SYMBOL 
AFTFR 256 blokuje możliwość zmiany wszystkich znaków. 

Przy każdym wykonaniu rozkazu SYMBOL AFTER, zdefiniowane 
przez użytkownika znaki są kasowane do postaci początkowej. 

SYMBOL AFTFR NIF funkcjonuje PO zmianie wartości HIMEM 
rozkazem MFNORY oraz PO otwarciu bufora zbiorów rozkazami OPENIN 
lub CP7NOUT. T takich okolicznościach sygnalizowany jest błąd (5), 
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"Iuproper argument" (chyba, że poprzedni stan był SYMBOL 
AFTER 256). 

Dalsze informacje dotyczące znaków definiowanych przez 
użytkownika można znaleźć w rozdziale zatytułowanym "V wolnej 
chwili ..." 

Słowa kluczowe pokrewne: HIMEM, MEMORY, SYMBOL 


TAB 
(Patrz PRINT TAB) 


TAG 
TAG [++ <wyrażenie określające strumień >J 


10 INPUT "napisz swoje imię"; a$ :CLS 

20 PRINT "Trzymaj się"; a$ 

30 TAG 

40 x=LEN (a$) 17:y=50+RND + 300:MOVE -x,y 

50 FOR f=-x TO 640 STEP RND  7+3 

60 MOVE f,y:PRINT " ";a$; :FRAME:NEXT 

70 FOR b=640 TO -x STEP-RND  7+3 

80 MOVE b,y:PRINT a$;" "; :FRAME ;NEXT 

90 GOTO 40 

run 
ROZKAZ: Powoduje, że tekst wysłany do danego strumienia jest 
drukowany od pozycji kursora graficznego (Text At Graphics). 
Pozwala to na mieszanie tekstu i symboli znakowych z elementami 
graficznymi oraz na przemieszczanie znaków "punkt po punkcie" 
w przeciwieństwie do "znak po znaku”. W braku określenia przyj- 
mowany jest strumień HO. 

Z pozycją kursora graficznego związany jest lewy, górny 
róg znaku. Jeżeli instrukcja PRINT nie jest zakończona średni- 
kiem, wyświetlane są również znaki kontrolne (przesunięcie 
o linię i powrót do początku linii). 

Jeżeli rozkau TAG dotyczy strumienia 40, BASIC wyłącza 
TAG po przejściu do trybu bezpośredniego. 

Słowa kluczowe pokrewne: TAGOFF 
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TAGOFF 
TAGOFF [ łkCwyrażenie określające strumień>] 


10 MODE 2:TAG:REM Włączono "tekst na ekranie graficznym" 
20 rok=1984:FOR x=1 TO 640 STEB 70 
30 MOVE x,400:DRAWR 0,-350 
40 rok=rok=i:PRINT rok; :NFXT 
50 TAGOFF:RTM hyłączono "tekst na ekranie graficznym” 
60 LOCATE 34,25:PRINT "vykresy roczne" 
70 GOTO 70 
run | 
ROZKAZ: Kasuje TAG dla danego strumienia (strumień 4ŁO w braku 
określenia), przywraca nowiązanie tekstu z kursorem tekstu 
(pozycja jak przed włączeniem TAG). 
Słowa kluczowe pokrewne: TAG 


TAN 
TAN ( Cwyrażenie liczbowe”? ) 


PRINT TAN (45) 

1.61977519 
FUNKCJA: Oblicza TANgens 4wyrażenia liczbowego> , które musi 
być w zakresie -200000 do +200000 
Uraga, rozkazy DFG i RAD przełączają komputer na liczanie kątów 
cónowiednio w stopniach i radieanach. 
Słowe kluczowe pokrewne: ATN, COS, DEG, RAD, SIN 


1FST 
JFST ( Lwspółrzędna x>, € współrzędna y>) 


10 CLS 

20 PRINT "Pióro jeat napełnione atramentem numer”; 

30 PRINT TEST (10,386) 

40 PUINT "Zmipn atrament pióra i MODF"; 

20 PRINT "... potem uruchom program jeszcze raz." 

run 
FUNKCJA: Przesuwa kursor graficzny na pozycję określoną współ- 
rzędnymi (x,y) t podaje numer atramentu na tej pozycji. 
Słowa kluczowe pokrewne: MOVE, MOVER, TESTR, XPOS, YPOS 
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TFSTR 
TESTR ( Łwektor x », 4wektor y>) 


10 MODF O0:FOR x=1 TO 15:LOCATE 1,x 

20 PEN x:PRINT STRING (10,143); NFXT 

30 MOVE 200, 400:PEN 1 

40 FOR N=1 TO 23:LOCATE 12,n 

50 PRINT "pióro"; TESTR (0,-16) :NFXT 

run 
FUNKCJA: Przesuwa kursor graficzny od pozycji bieżącej o wektor 
o współrzędnych (x,y) i podaje numer atramentu na tej pozycji. 
Słowa kluczowe pokrewne: MOVE, MOVER, TEST, XPOS, YPOS 


THEN 
(Patrz IF) 


TIME 


TIME 

10 CLS:RFM zegar 

20 INPUT "godzina"; godzina 

30 INPUT "minuta"; minuta 

40 INPUT "sekunda"; sekunda 

50 CLS:data=INT (TIME/300) 

60 WHILF godzina X 13 

70 WHILE minuta X 60 

80 WHILE tik 460 

90 tik=(INT(TIME/300)-datas)+ sekunda 
100 LOCATE 1,1 

110 PRINT USING " tłł+"; godzina, minuta, tik 
120 WEND 

130 tik=0:sekunda=0:minuta=minuta+1 
140 GOTO 50 

150 WEND 

160 minuta:0:godzina=godzina+1 

170 WEND 

180 godzina=1 

190 GOTO 60 
run 
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FUNKCJA: Podaje czes od ostetniego włączenia komputera lub od 
ostatniego wyzerowania (z wyłączeniem czasu przeznaczonego 
ne obsługę dysków. 

Każda sekunda czasu rzeczyristego jest równa wartości: 
TIMF/300 | 
Słowe kluczowe pokrewne: AFTER, EVERY, WEND, WHILE 


TO 


(Patrz FOR) 
TROFF 


THON 
TKNOFF 


TRON 

10 TROFF:PRINT:PRINT "Ślad wyłączony” 

20 FOR n=1 TO 8 

30 PRINT "program jest wykonyrany";NFXT 

40 IF f=1 TIITN END 

50 TRON:PRINT:PRINT "Ślad włączony” 

60 f=1:GOTO 20 

run 
ROZKAZ: Włącza podeląd numerów linii w trakcie wykonywania 
prozremu, Numer każdej linii drukowany jest, w nawiasach kwadra- 
towych C] , przed jej wykonaniem. 

TRON (TRace ON) włącza podzląd, TROFF wyłącza. 
Udocodnienie to jest szczególnie użyteczne przy śledzeniu 
przyczyn wystąpienia błędu. 

Słowa kluczowe pokrewne: nie ma 


UNT 
UNT ( Łwyrażenie określające adres > ) 


PHINT UNT (4,FF66) 

-154 
FUNKCJA: Podaje liczbę całkowitą z zakresu -32768 do 32767, 
która jest odpowiednikiem, w zapisie uzupełnień do dwóch war- 
tości <wyrażenie określejącego Edres 7 
Słowa kluczowe pokrewne: CINT, FIX, 1NT, ROUND 
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UPPERĘ 
UPPERŚ ( <wyrażenie tekstowe > ) 


10 CLS:a$="ojej, jak urosłeś!” 

20 PRINT UPPERŻ (a$) 

run 
FUNKCJA: Podaje nowy tekst, który jest kopią tekstu pierwotnego 
ale w którym wszystkie mełe litery od A do-Z są zamienione 
na duże litery. Funkcja ta jest użyteczna przy przetwarzaniu 
tekstów wejściowych, które mogą mieć pomieszane litery małe 
i duże. 
Słowa kluczowe pokrewne: LOWER$ 


USING 
(Patrz PRINT USING) 


VAL 
VAL ( 4 wyrażenie tekstowe > ) 


10 CLS:PRINT "Znam tabliczkę mnożenia!" 

20 PRINT:PRINT "Naciśnij klawisz (1 do 9)" 

30 a$=INKFY$:IF a$="" THFN 30 

40 n=VAL (a$):IF n<1 OR n> 9 THEN 30 

50 FOR x=1 TO 12 

60 PRINT n;"X";x;"=";nex 

70 NEXT:GOTO 20 

run 
FUNKCJA: Podaje wartość (VALue) liczbową (z ewentualnym znakiem 
i kropką dziesiętną) pierwszego znaku (pierwszych znaków) da- 
nego «wyrażenia tekstowego >. 

Jeżeli pierwszy znak nie jest cyfrą, wynik jest równy O. 
Jeżeli pierwszy znak jest minusem lub kropką dziesiętną, 
a następny nie jest cyfrą, sygnalizorany jest błąd (13): Type 
migmatch . 
Słowa kluczowe pokrewne: STR$ 
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VPOS 
VPOS ( jHł<wyrażenie określające strumień> ) 


10 MODE 1:BONDER O:LOCATE 8,2 
20 PRINT "naciskaj klawisze kursora yóra/dóż " 
30 WINDOW" 39,39,1,25:CURSOR 1,1 
40 LOCATE 1,13 
50 IF JNKrY (0) <> -1 THFN PRINT CRR$ (11); 
60 IF INKTY (2) <V>-1 THEN PRINT CIR$ (10); 
70 LOCATE £1,3,24 
80 PRIYT 4 1,"pozycja pionowa"; 
90 PRINT $ 1,"kursors tekstorwegos"; 
100 PEINT Ż$1,VPOS (+0) :GOTO 50 
FUNKCJA: Podaje bieżącą pozycję pionową (Vertical POSition) 
kursora tekstowego w odniesieniu do górnej krawędzi okna 
tekstonego. Wyrażenie nkreślejące strumień MUSI być podane, 
NIF jest przyjmowane domyślnie %*0. 
Słowa kluczowe pokrewne: POS, WINDOW 


PAIT 
WAIT (numer portu», (ćmaska>[, £ inwersja >] 


WAIT$FF34,20,25 
ROZKAZ: Zatrzymuje prozram co czasu odczytania z danego portu 
określonej wartości z zakresu O do 255, Wartość odczytana z portu 
jest poddawana operacji wyłącznie - lub (exclusive or) z war- 
tością /inwersją >, a następnie operacji 1 (and) z wartością 
Lmaska> , Jeżeli tak otrzymona liczba jest różna od zera, program 
jest kontynuowany. 

Czas czekania (WAIT) BASIC'a jest nieokreślony, aż do 
zaśstnienia żądanych warunków, 

Rozkaz ten nie poninien być stosowany przez niedoświadczo- 
nego programistę. 
Słowa kluczowe pokrewne: INP, OUT 


VEND 
NEND 


WFND 
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ROZKAZ: Znaczy koniec fragmentu programu, ktźry ma być wykonywa- 
ny * pętli WHILE, FEND wybiera automatycznie rozkaz WHILE, 

z którym ma być skojarzony. 

Słowa kluczowe pokrewne: TIME, WHILE 


WHILE 
WHILE 4 wyrażenie logiczne > 


"10 CLS;PRINT "Zegar 10 sekundowy":t=TIMĘ 

20 WHIŁE TIME < t+3000 

30 SOUND 1,0,100,15 

40 WEND:SOUND 129,40,30,15 

run 
ROZKAZ: Powoduje powtarzanie fragmentu programu tak długo, jak 
długo prawdziwy jest podany warunek. 
Słowa kluczowe pokrewne: TIME, WEND 


WIDTH 


WIDTH £ wyrażenie określające liczbę całkowitą> 


WIDTH 40 
ROZKAZ: Ustala liczbę znaków w linii w przypadku drukowania 
na dołączonej drukarce, Po danej liczbie znaków BASIC wysyła 
dodatkowe znaki sterujące CR i LF (przesunięcie karetki do 
początku linii i przesunięcie do nowej linii). 

Wartość domyślna, zakładana przez komputer, wynosi 132, 
Rozkaz WIDTH 255 usuwa dodatkowe znaki sterujące CR i LF. Uwaga, 
znaki CR i LF są wysyłane ZAWSZE przez te rozkazy PRINT, które 
nie są zakończone średnikiem lub przecinkiem. 

Słowa kluczowe pokrewne: POS 


WINDOW 


WINDOW [+ wyrażenie określające strumień > ,) « lewa > ,< prawa> , 
<góra>, <dół> 


10 MODE O:BORDER O:REM karty testowe 
20 INK 0,0:INK 1,25:INK 2,23:INK 3,21 
30 INK 4,17:INK 5,6:INK 6,2:INK 7,26 
40 PAPER 0:CLS 

50 PAPER 1:WINDOW 2,4,1,18:CLS 
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60 PAPER 2:WINDOW 5,7,1,18:CLS 

70 PAPER 3:WINDOW 8,10,1,18:CLS 

80 PAPFR 4:WINDOW 11,13,1,18:CLS 

90 PAPER 5:WINLOW 14,16,1,18:CLS 

100 PAPER 6:WINLOW 17,18,1,18:CLS 

110 PAPFR 7:WINDOW 2,19,19,25:CLS 

120 GOTO 120 

run 
ROZKAZ: Określa wymiary strumienia tekstu (okna — WINDOW) na 
ekranie. Wartości parametrów Clewa> ,€ prawa> , cgóra> ,C dóły 
powinny odpowiadać pozycjom znaków w danym trybie organizacji 
ekranu. 

Jeżeli nie jest podane 4wyrażenie określające strumień? , 
przyjmowana jest wartość +0. 

Dalsze informacje dotyczące okien można znaleźć w 2,części 
rozdziału zatytułowanego "W wolnej chwili ..." 
Słowa kluczowe pokrewne: VINLOR SWAP 


WINDOW SWAP 


WINDOW SWAP (wyrażenie określające strumień > , «wyrażenie 
określające strumień > 


10 MODT 1:INK 1,24:INK 2,9:INK 3,6 

20 WINTOW z1,40,13,25:PAPER 3 

30 nINDOW t1,1,20,1,12:PAPER 1,2 

40 CLS:PRINT"okno nr.0" 

50 CLS 41:PRINT + 1,"okno nr.i" 

60 LOCATF 1,6 

70 PRINT "okno czerwone (0)";SPC (2) 

60 LOCATF *1,1,6 

90 PRINT "okno zielone (1)" 

100 FOR t=1i TO 1000:NEXT 

110 WINDOW SWAP O0,1:GOTO 60 
ROZKAZ: Zamienia okno tekstowe określone pierrszym(wyrażeniem > 
z oknem określonym drugim (wyrażeniem). 

Obydwa €£ wyrażenia określające strumień) muszą być podane 
1 w tym wypadku, NIF powinny być poprzedzone wskaźnikiem kie- 


runkowym . 
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Rozkaz ten może być używany w celu skierowania komunikatów 
BASIC'a, którs są normalnie kierowane do strumienia + O, do 
wybranego okna, 

Dalsze informacje dotyczące okien można znaleźć w 2, części 
rozdziału zatytułowanego "W wolnej chwili ..." 

Słowa kluczowe pokrewne: WINDOW 


WRITE 


WRITE U[R<wyrażenie określające strumień > JI < lista pozycji 
do wpisu>] 


10 REM zapisywanie zmiennych na dysku 

20 INPUT "podaj zmienną liczbową”; a 

30 INPUT "podaj zmienną tekstową”; a$ 

40 OPFNOUT "datafile" 

50 WRITF HF9,a,a$ 

60 CLOSFOUT:PRINT "Dane zostały zapisane na dysku" 

run 
ROZKAZ: Zapisuje wartości pozycji z listy w danym strumieniu. 
Poszczególne pozycje .powinny być oddzielone przecinkami; 
teksty powinny być zamknięte «w podwójnych cudzysłowach. 

W przykładzie wprowadzone wartości zmiennych są zapisywa- 
ne w strumieniu 49 (strumień dysku). 

W celu odzyskania wartości zmiennych z dysku można użyć 
następującego programu 


10 REM odczytanie zmiennych z dysku 
20 OPENIN "datafile":INPUT 4 9,a,a$ 
30 CLOSEIN:PRINT "Odczytano 2 wartości:" 
40 PRINT:PRINT a,a$ 
run 
Słowa kluczowe pokrevne: INPUT, LINE INPUT 


XOR 
(argument > XOR (argument > 


IF "piotr"< "zenek" XOR "pies" >"kot" THEN PRINT "dobrze" 
FLSE PRINT "źle" 
źle 
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IF "zenek* K"piotr" XOR "kot" >"pies" THFN PRINT "dobrze" 

FLSF PRINT "źle”"© 

źle 

IF "piotr" "zenek" XOR "kot" "pies" THEN PRINT "dobrze" 

ELSF PRINT "źle" 

dobrze 

PRINT 1 XOR 1 

[U 

PRINT O XOR O 

[o 

PRINT 1 XOR O 

i 
OPFRATOR: Wykonuje operację logiczną, wyłącznie - lub, na bitach 
liczb całkowitych, Bit wyniku jest równy 1, jeżeli bity argu- 
mentów są różne. 

Dalsze informacje dotyczące logiki można znaleźć w 2. części 
rozdziału zatytułowanego "i wolnej chwili...". 
Słowa kluczowe vokrewne: AND, OR, NOT 


X POS 
XP0S 
10 MODT 1:DRAW 320,200 
20 PRINT "pozycja x kursora graficznego="; 
20 PRINT XPOS 
run 


FUNKCJA: Podaje aktualną pozycję poziomą (X) kursora graficznego, 
Słowa kluczowe pokrewne: MOVE, MOVER, ORIGIN, YPOS 


YPOS 
YPOS 
10 MODT 1:DRAW 320,200 
20 PPINT "pozycja Y kursora graficznego ="; 
30 PKINT Y2OS 
run 
FUNKCJA: Poda'e aktualną pozycję pionową (1) kursora graficznego. 
Słowa kluczowe pokrewne: MOVP', MOVER, ORIGIN, XPOS 
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ZONE 
ZONE (< wyrażenie określające liczbę całkowitą > 


10 CLS:FOR z=2 TO 20 

20 ZONE z 

30 PRINT "X","X ZONE=";z:NFXT 

run 
ROZKAZ: Zmienia szerokość strefy drukowania (podawanej w rozka- 
zie PRINT przez użycie przecinka), Vvstępnie zakładana szerokość 
strefy jest równa 13 kolumn i może być zmieniana wartością 
4wyrażenia> w zakresie 1 do 255. 
Słowa kluczowe pokrewne: PRINT 
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ROZDZIAŁ 4 
DYSKI I KASETY 


Część 1: Dyski 


Tworzenie roboczych kopii dysków 


Ta część rozdziału opisuje, jak tworzyć dyski przeznaczone 
do codziennej pracy oraz wprowadza w pewne możliwości systemu 
CP/M 1 współpracujących z nim prozramów użytkowych. 

W szczególności omówione będzie: 

- tworzenie kopii dysków systemowych 

- wprowadzenie do CP/M PLUS 

- Używanie zbiorów IELP | 

- praca z jednym 1 dwoma napędami dysków 

- kopiowanie zbiorów przy pomocy progranu PIP 

- operowanie dyskami w formacie języka BASIC 

- używanie dysków z programami użytkowymi w języku AMSTRAL BASIC 
- dopasowywanie środowiska CP/M PLUS do programu użytkowego 

- wprowadzenie do GSK 

- praca z systemem CP/M 2.2 


W części 7 rozdziału "Informacje podstawowe" znalazły się infor- 
macje, jak formatować nową dyskietkę do pracy z językiem BASIC 
1 systemem CP/M. 

Z części 10 tego samego rozdziału można dowiedzieć się, jak 
skopiować dysk, używając programu LISCKITI (znajdującego się 
na 1 stronie pakietu dyskietek systemowych). Ta część podręcz- 
nika mówi o tym, jak używać dyski i znajdujące się na nich 
prozramy. 


Kopiowanie wzorcowych dyskietek systemowych 


Utworzenie kopii dostarczonych wraz z komputerem dyskietek 
systenneych, a następnie trzymanie oryginełów w bezpiecznym 
miejscu, jest niezwykle ważne. Ich wymiana w wypadku uszkodze- 
nia jest bardzo kosztowna! Pamiętajmy, że każda z wzorcowych 
dyskietek systemowych zapisana jest po obu stronach, co czyni 
w sumie cztery strony zapisu. Ogólnie - każdy dysk ma dwie po- 
wierzchnie robocze, które mozą być zapisane według życzeń 
użytkownika. 
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Pierwsza strona wzorcowego pakietu jest najważniejsza. Za- 
wiera ona wzorcową kopię systemu CP/M PLUS oraz zestaw programów 
użytkowych, wspomagających operacje dyskowe. Druga strona zapi- 
sana jest zbiorami ważnymi dla osób programujących w języku 
assemblera. Strona trzecia — to Dr. 10GO, zbiory HELP oraz GSX. 
(0 tym ostatnim programie - w dalszej części rozdziału). Czwar- 
ta strona zawiera C?/M 2.2 1 Dr. LOGO - programy już wcześniej 
dostępne w modelach AMSTRAD CPC 664 i CPC 464 + DDLI1. Programy 
te dostarczane są z uwagi na kompatybilność 2 wcześniejszymi 
modelami Amstradów - normalnie nie są one wykorzystywane. 

Kopie dysków systemowych winny być traktowane jako "biblio- 
teki programów". Zwykle program wybierany jest przez wprowadze- 
nie do komputera "dysku bibliotecznego", na który znajduje się 
poszukiwany zbiór, a nie przez kopiowanie go na pusty dysk 
i uruchamianie tego ostatniezo. 

Jeszcze raz należy z naciskiem podkreślić, że "dyski biblio- 
teczne", które używa się w codziennej pracy MUSZĄ być kopiami 
oryginalnych dysków systemowych. 

Pamiętajmy, że przy kopiowaniu zbiorów na pusty dysk przy 
pomocy programu DISCKITJ3, czysty dysk zostsje automatycznie 
sformatowany. 


Wprowadzenie do CP/M PLUS 


Zaraz po włączeniu komputera do sieci, na ekranie zełasza 
się język LASIC. BASIC zarządzać będzie działaniem systemu tak 
długo, dopóki nie zostanie wyłączony albo programem BINarnym 
uruchomionym przez AMSDOS (lub załadowanym z kasety), albo 
przez załadowanie systemu CP/M PLUS komendą 


| cpu 


Po załadowaniu do pamięci komputera, system operacyjny 
CP/M PLUS nie ma już potrzeby odwoływania się do pierwszej strony 
dysku systemowego, o ile cczywiście nie prazniemy uruchomić 
programu użytkowego rezydującego na tej stronie. Tylko dysk, od 
którego rozpoczynamy pracę z CP/M musi mieć format systemowy; 
inne dyski mogą już mieć format dający większą pojemość - for- 
mat danych. | 
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Uruchamianie programu polega na włożeniu dysku zawierającego 
ten program do napędu dysków i wprowadzeniu z klawiatury odpo- 
wiedniej nazwy. Dane używane przez program mogą znajdować się 
na tym samym bądź innym dysku. CP/M PLUS, podobnie jak AMSDOS, 
zezwala na wymienianie dysków, Jeżeli z uwagi na wygodę na dysku 
winien się znajdować pakiet programów, w tym pewne programy 
uruchomieniowe, radzimy użyć programu PIP ze strony 1 dysku 
systemowego w sposób opisany w dalszej części tego rozdziału 

i w rozdziale 5. 

Dysk systemowy zawiera specjalny zbiór nazwany PROFILE.SUB, 
na który składa się lista komend automatycznie wykonywanych po 
załadowaniu systemu CP/M PLUS do pamięci. Można (o ile to nie 
zostało jeszcze zrobione) wprowadzić do napędu KOPIĘ pierwszej 
strony dysku systemowego i po znakach A) wprowadzić 


REN PIROFILE.SUB = PROFILE.ENG 


co spowoduje utworzenie ze zbioru PROFILE.ENG zbioru PROFILE.SUB. 
Zbiór ten, który aktywowany będzie już przy następnym załadowa- 
niu CP/M PLUS, zawiera komendy: 
| SEYKEYS KTYS.CCP 
LANGUAGF 3 


Powodują one dogodne przy wprowadzaniu komend CP/M PLUS, nada- 
nie znaczenia klawiszom sterowania kursora oraz wybranie zestawu 
znaków angielskich (a nie amerykańskich). Sprowadza się to do 
zamiany znaku generowanego przy naciśnięciu [SHIFT] 3 z p na £ 
Od monentu ustawienia znaczenia klawiszy komendą 

SETKEYS KEYS.CCP, edycja linii komend CP/M może być przeprowa- 
dzana analovicznie do edycji linijki w języku BASIC. Dokładny 
opis działania SETKFYS znajduje się w drugiej części rozdziału 5, 


Pomocna dłoń 


Trzecia strona pakietu dysków systemowych zawiera specjalny 
prozram nazwany "Help". Jest on rodzajem elektronicznego podręcz- 
nika programów użytkowych systemu CP/M PLUS, Programu "Help" 
można użyć wprowadzając do napędu trzecią stronę pakietu i w od- 
powiedzi na znak gotowości A> wprowadzić 
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HELP 


... a program zada szereg pytań naprowadzających na poszukiwaną 
informację. 


Ile napędów? 


Przy pierwszym ładowaniu systemu CP/M automatycznie roz- 
poznawana jest liczba dołączonych do komputera napędów dysków. 
Liczba ta wyświetlana jest w nagłówku systemu, Należy zwrócić 
uwagę, że proces rozpoznawania może być zakłócony, jeżeli dysk 
w drugim napędzie nie jest całkowicie usunięty. 

Wszystkie komunikaty o błędach związanych z nanędami 
wyświetlane są w 25 linii ekranu. Same programy używają tylko 
pierwszych 24 linii. 

Jeżeli dysponujemy tylko jednym, wbudowanym napędem dysków, 
to ostatnia linia ekranu zawierać będzie tekst "Drive is A:" 
lub "Drive is B:". Dzieje się tak dlatego, że CP/M PLUS zezwala 
na pracę z jednym.fizycznym napędem tak, jak gdyby do systemu 
dołączone były dwie logiczne jednostki. Można używać 2 dysków, 
a ostatnia linia ekranu wyświetlać będzie komunikaty o koniecz- 
ności zmiany dysku, zgodnie z wymogami proszramu. Taki tryb 
pracy pozwala na uniknięcie zakupu drugiego napędu; niesie on 
jednak ze sobą konieczność manipulowania dyskami i - co za tym 
idzie - niebezpieczeństwo pomyłek. 


Kopiowanie zbiorów z dysku na dysk 


W celu udostępnienia możliwości kopiowania zbiorów z dysku 
na dysk, do zestawu programów użytkowych dołączony jest program 
PIP ("Peripherial Interchange Program"). 

Ypierw należy załadować PIP ze strony 1. Dokonuje się tego 
pisząc po znakach A> 


PIP 


Po prawidłowym załadowaniu PIP zgłasza się symbolem 
gwiazdki (%). Zwykle kopiowanie odbywać się będzie z dysku 
źródłowego (anz. "source") w nanędzie A: na dysk docelowy (ane. 
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"destination") w napędzie B:. Przekonaliśmy się już, że wobec 
istnienia jednezo napędu A: 1 B: są tym samym mechanizmem. 

Aby dokonać kopiowania zbioru, dla przykładu SUBMIT.COM, 
należy wprowadzić z klawiatury po znaku % 


B:=A:SIRMIT.COM 


W celu skopiowania wszystkich zbiorów z dysku źródłowego 
na docelowy należy użyć komendy 


B:= %.* 


Wyjście z programu PIP i powrót do systemu dokonuje się 
poprzez wciśnięcie klawisza [RETURN] po znaku % 

PIP jest prozramem bardzo rozbudowanym, o dużych możli- 
wościach. Dalsze szczegóły mogą być znalezione w rozdziale 5. 


Lyski tylko z programami w języku BASIC 


Jak już wspomniano, dyski o formacie systemowym służą nor- 
malnie tylko do inicjacji systemu CP/M PLUS. Dyski używane do 
zapisywania prozramów w języku BASIC mogą mieć zatem format da- 
nych (tj. bez ścieżek systemowych ), zapewnia- 
jący większość pojemność, 

Dysk winien być sforms:towany przy pomocy programu DISCKIT3, 
YW celu skopiowania procramów na taki dysk należy użyć programu 
PIP, bądź załadować je do pamięci komendą LOAD a następnie za- 
pisać na dysk komendą SAVE języka BASIC. 


Dyski "pod klucz" — AMSTRAD BASIC 


Jeżeli kupisz jakieś programy napisane w języku AMSTRAD 
RASIC na komputer CPC 6123, winny one działać zaraz po włącze- 
niu komnutera do sieci, hez dodatkowych zmian w systemie. (Wyra- 
żenie "pod klucz" pochodzi z czasów, gdy wszystkie małe kompu- 
tery włączało się nrzy pomocy kluczyka, podobnego do kluczyków 
samochodowych). Podobnie jak ma to miejsce z dyskami systemo- 
wymi - należy pracować używając kopii zakupionego oprogramo- 
wania, a oryginały zostawić w bezpiecznym miejscu. 
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Dyski "pod klucz” — CP/M 


System operacyjny CP/M pozwala na korzystanie z olbrzymiej 
biblioteki programów napisanych na komputery działające pod nad- 
zorem CP/M. Podstawy "logiki" tych programów zostały już przed- 
stawione, wszystko, co należy uczynić w celu ich uruchomienia, 
to przeniesienie ich na odpowiedni dysk i być może przekazanie 
im informacji o sposobie, w jaki 6128 obsługuje ekran monitora. 

Zestaw programów na dysku, napisanych tak, aby razem wy- 
pełniały odpowiednie zadanie, nazywamy "pakietem", Pakiety takie 
pisane są zwykle tak, aby działały na różnych komputerach, 
spośród których każdy może mieć inny rozmiar ekranu i sposób 
sterowania kursora, 

Komputer 6128 wyposażony jest we wbudowany "emulator 
terminala", uruchamiany w czasie ładowania CP/M PLUS. Jego kody 
kontrolne są różne od używanych przez BASIC. 

Czasami pakiet programów użytkowych będzie już "zainstalo- 
wany" na AMSTRADA 6128; w innych wypadkach może być dostosowa- 
ny do 6128 w ten sposób, że dopuszcza instalację kompatybilną 
z 6128. W takim wypadku należy dokonać wskazanych przez oprogra- 
mowanie czynności dla terminala Zenith 719/729. Jeżeli w pakie- 
cie nie ma takich możliwości, to komendy, które po wysłaniu na 
ekran mogą dopasować 6128 do wymagań oprogramowania, wskazane 
są części zatytułowanej "liekonfiyuracja prozramu pod systenem 
CP/M". Zwykle proces instalacji lub dostosowania programu spro- 
wadza się do wprowadzenia na żądanie odpowiednich kodów. I tu 
znowu należy trzymać się instrukcji dołączonej do pakietu. 

Zakupione oprogramowanie musi być umieszczone na dysku 
dostosowanym do użycia w systemie. Niemal każdy komputer używa 
innego formatu dysku, Mimo, iż wiele ma tę samą średnicę, nie 
oznacza to automatycznie jakiejkolwiek kompatybilności między 
nimi w zakresie informecji zawartych na dysku. Należy szukać 
3-calowej wersji na komputer AMSTRAD. 


Tworzenie "dysku pod klucz" w systemie CP/M 


Obok samego prozramu aplikacyjnego często wygodnie jest 
mieć na dysku program użytkowy SETKTYS.COM 1 być może SUBNIT.COM 
(wraz z odpowiednimi zbiorami zawierającymi komendy). 
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Do przenoszenia zbiorów typu COM, jak również do pisania 
zbioru komend rygodnie jest użyć programu PIP, Jeżeli chodzi 
o tę druzą możliwość, to PIP działa jak edytor poszczególnych li- 
nijek tekstu. Dla przykładu, zbiór LOGO3.SUB na stronie 3 pakietu 
systemowego mógł być utworzony za pomocą następujących komend: 

(Należy włożyć dysk systemowy, strona 1 do napędu A:). 

Yyprowadzamy: 

PIP 

(Należy wyjąć dysk systemowy, włożyć dysk docelowy). 

Wprowadzamy: 

LOGO3 „SUB=CON : 

SETKFYS KEYS.DRL 

[COoNTROL]J LOGO3 

[coNTROL] Z 


Rekonfiruracja programu pod systemem CP/M 


CPC 6128 akceptuje szeroki zestaw kodów kontrolnych wygod- 
nych przy rekonfiguracji pakietu tak, aby działał pod CP/M na 
CPC 6128, Większość nrocesorów tekstów i innych programów apli- 
krcyjnych jest w stanie wysyłać komunikaty w różne miejsca 
ekranu i przyjmować teksty pojawiające się w dowolnych jego 
miejscach oraz ogólnie reagować na kody sterowania kursorem, 

Jeżeli Twój pakiet został już odpowiednio dopasowany, dal- 
sze informacje są już zbędne. 


Dostosowywanie sposobu wyprowadzania informacji 


Lopasowywanie zwykle polegać będzie na wykonaniu specjal- 
nego programu (często nazywanego "INSTAL"). Jeżeli nie uwzględ- 
nia on terminali typu 719/729, alho CPC 6128 w szczególności, 
to należy odpowiedzieć na szereg pytań dotyczących parametrów 
ekranu 6126, Potencjelne odpowiedzi zebrane są « poniższej ta- 
heli, stanowiącej część informacji z części 15 rozdziału 7, 
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ASCII HEX DEC Operacja 

BEL] 407 7 sygnał dźwiękowy 

[BSI 308 8 kursor,w lewo o jedną pozycją 

£LFJ 80A 10 kursor w dół o jedną linię 

LCR21 s0D 13 kursor w lewo do skraju okna w tej 


samej linii 

CESCJA 841B 441 27 65 kursor w górę o jedną linię 

CESCIC Ż1B 843 27 67 kursor w prawo o jedną pozycję 

[ESCJE 41B 445 27 69 wyczyść ekran 

LESCJH 81B 448 27 72 kursor do lewego górnego rogu ekranu 

LESCJJ 41B 84A 27 74 wyczyść od znaku pod kursorem do końca 
ekranu 

LESCJK 81B 84B 27 75 wyczyść od znaku pod kursorem do końca 
linii 

CESCJL 41B 84C 27 76 dodaj linię 

LESCJM 21B 24D 27 77 usuń linię 

LESCJN 41B 84E 27 78 usuń znak pod kursorem 

CESCJY 81B 459 27 89 ustaw kursor w danej pozycji 

<c» (rv c) — numer kolumny + 32 

<r>» - numer wiersza + J2 

CESCJd 81B 464 27 100 wyczyść od początku ekranu do znaku 
pod kursorem 

CESCJo 81B 46F 27 1i1 wyczyść od początku linii do znaku 
pod kursorem 

LESCJp 81B 870 27 112 ustaw tryb wyświetlania negotywowego 

LESCJq 8$1B 871 27 113 wyłącz tryb wyświetlania negatuwowego 


Dostosowyranie sposobu wprowadzania informacji 


Programy zawarte w pakiecie będą odwoływały się do Kklawic- 
tury. Większość klawiszy 6128 generuje standardowe kody, za wy- 
jątkiem klawiszy kursora. Zmiany kodów klawiszy można dokonac 
przy pomocy programu SETKFYS; od prozremów oczekuje się iednek 
takiego działania, aby przyjmowały typowe kody. 

Nieszczęśliwie się skłaca, że różne partie oproeramowania 
oczekują naciśnięcie innych klawiszy w celu uzyskania tych sa- 
mych funkcji sterujących. Zneki widoczne, "snacja", [TAB] 

1 [PFTUNN] są w zasadzie uniwersalne, ale nieporozumienia zeczy- 
nają się przy [BS], a im dalej, tym sorzej. Porównajmy dla 
przykładu kody rozumiane jako "ustaw kursor na początku linii" 
przez: 

CP/M - [CONTROL] B 

Dr.LOGO - [CONTROL] A 

typowy procesor tekstu - [CONTROL] QS 
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% CPC 6128 zapewnione są trzy układy klawiatury. Każda 
konfiguracja może być aktywowana ze zbioru na i stronie pakietu 
systemowego. Dla przykładu 

SETKEYS KEYS.CCP 


tj. jedna z komend wykonywanych automatycznie przez PROFILE .SUB, 
ustawi klawiaturę tak, aby pasowała do komend systemu CP/M. 


Uruchamianie pakietu "pod klucz" 

Zwykle wystarczy vpisać nazwę głównego programu w pakiecie 
po znakach A)> . Dla przykładu, aby uruchomić program 
PAYROLL.COM, wpiszemy 


PAYROLL 


Jeżeli jakieś dopasowanie jest niezbędne, to pakiet zawie- 
rać będzie zbiór typu .SUB. Przykładem tego jest Dr. LOGO na 
stronie 3 pakietu systemowego. Program ten uruchamiany jest ko- 
mendą SUBMIT LOGO3. Zawartość zbioru możemy obejrzeć przez 


wprowadzenie 
TYPE LOGO0O3.SUB 


Zohaczymy: 


SETKFYS KFYS.DRL ... co zmienia kody klawiatury 
LOGO3 -... co wywołuje LOGO 
SFTKFYS KFYS,CCP ... Co przywraca kody CP/M. 


Automatyczne uruchamianie programu 


Można tak zorganizować dysk, aby program aplikacyjny rozpo- 
czynał działanie automatycznie po uruchomieniu CP/M z dysku syste- 
mowero. Należy na końcu zbioru PROFILE,SUB dołączyć nazwę inte- 
resującego nas progremu (który musi rezydować na tym samym dysku), 


Aprowadzenie do GSX 


GSX (ang. "Graphics System FXtension") jest programem umożli- 
wiającym systemori operacyjnemu CP/M wyprowadzanie zarówno tekstu 
jak 1 obrezów graficznych. GSX użyrany jest do rysowania takich 
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rzeczy jak wykresy słupkowe i kołowe, sporządzania nagłówków 
czcionkami o różnym kształcie i wielkości, 


Program GSX umożliwia korzystanie z ekranu monitora, drukarki 
oraz plotera, 

Sam program nie posiada umiejętności rysowania grafiki, 
podobnie jak CP/M nie potrafi sam przetwarzać tekstów; w obu 
wypadkach niezbędny jest specjalizowany procram. Przykładowy 
rysunek sporządzony został przez program "DR Graph" firmy 
Digital Research. Zadaniem GSX jest dostarczenie standardowych 
procedur związanych z ekranami, drukarkami i ploterami, Pozwala 
to na przenoszenie oprogramowania aplikacyjnego z jednego kompu- 
tera na drugi bez konieczności wprowadzenia większych zmian. 

W celu stworzenia dysku dostosowaneęro do wykonywania progra 
mów korzystających z GSX należy skopiować na pusty, sformatowany 
dysk zbiory GSX.SYS i ASSIGN.SYS z 3 strony pakietu systemowego 
oraz niezbędne programy obsługi fizycznych urządzeń wyjściowych 
(wraz z samym programem aplikacyjnym). Można w tym celu użyć 
programu PIP. Zbiór ASSIGN.SYS zawiera opis do trzech programów 
obsługi urządzeń, w kolejności odwrotnej do ich wielkości: 


21a:ddfxlr7 ; drukarka T-hitora typu Epson 
11a:ddhp74798; ploter 

Pia:ddmode2 ; ekran w trybie 2 

f2a:ddmodei ; ekran w trybie 1 
; 


43a :ddmodef ekran w trybie f 


Liczby wskazują programowi GSX typ urządzenia otsłuziwanego 
przez każdy program obsługi (Drukarka/Ploter/Fkran). W danym mo- 
mencie w pamięci może rezydować tylko jeden prozram obsługi, 
bowiem programy te ładowane są w to samo miejsce pamięci. Stąd 
potrzeba uszeregowania prozramów pod rzględem ich długości - GSX 
musi zarezerwować tyle miejsca, aby starczyło na największy z nich 
Dostarczane są programy obsługi cla różnych trybów pracy 
ekranu i standardowych drukarek, "raz z 6128 dostępne są prozramy 
obsługi wymienione w zbiorze LLIVEKS.GSX. Należy zapoznać się 
z tym zhiorem poprzez włożenie do napędu dysków 3 strony pakietu 
i wprowadzenie po znakach A> 
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TYPF DRIVERS.GSX 


Pozwoli to na wybranie odpowiedniego programu, 

Ponieważ większość programów splikacyjnych zawierać będzie 
program ładujący GSX, wystarczy po znakach A) wpisać razwę 
swojego programu. Jeżeli natomiast używany progres nie posiada 
fragmentów ładującego GSX, to należy skopiować zbiór GINGRAF.COM 
(ze strony 3) na roboczy dysk mający używać GSX 1 wpisać 


GENGRAF YOURFILF 


gdzie YOURFILE.COM jest właśnie programem aplikacyjnym, 

w którym należy zainstalować program ładujący. Skoro od tej 
chwili proeram aplikacyjny zawiera już fragment ładujący - zbiór 
GFNGRAF.COM może już zostać wymazany komendą ERA. 


Praca z CP/M 2.2 


W przeciwieństwie do CP/M Plus, CP/M 2.2 (tj. starsza 
wersja systemu CP/M) często odwołuje się do dysku systemowego 
i nie toleruje zmian dysku w czasie pracy. Wynika to z koniecz= 
ności powtórnego załadowania fragmentów systemu z dysku w napę- 
dzie A: w czasie, gdy po skończeniu działania programu na ekra- 
nie pojawiają się znaki A>. Zwykle zatem precuje się z dyskiem 
systemowym. 6 celu przenoszenia zbiorów, w miejsce programu PIP 
można użyć, nie wymagającego dwóch napędów, programu kopiują- 
cego FILFCOPY. 

vobec powyższego, zaleca się używanie CP/M 2.2 jedynie wobec 
posiadania oprogramowania napisanego na komputerach CPC 464+DDI1 
lub CPC 664, z pewnych powodów nie działającego pod CP/M Plus. 

Ostrzeżenie: Pewne prozramy na CPC 664 lub CPC 464 + DDI1 
pod CP/M 2,2 posiadają w sobie pewne komendy instalacyjne i nie 
będą działać pod CP/M Plus. W tych wypadkach z konieczności na- 
leży skorzystać z CP/M 2.2, zawartego na 4 stronie pakietu syste- 
mowego. 
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Część 2: Kasety 


Jeżeli życzysz sobie używać magnetofonu dołączonego do 
systemu w sposób opisany w części 2 rczdziału "Kurs podstawowy”, 
to należy pamiętać, że pewne liczbe. komce'd języka BASIC, po 
komendzie |TAPE, zmieni swoje działanie, Na ekranie pv jawiać 
się będą róźne komunikaży i znaki, inne uiż te, które widoczne 
są w czasie normalnej pracy z uyskami. 

Uwaga. Jeżeli Twój magnetofon ma zdalne sterowanie funkcja- 
mi przewijania do tyłu i do przodu, toe konieczne będzie odłą- 
czenie go, lub użycie komendy |TAPE : CAT w celu uruchomienia 
silnika, Operacja ta przeryrana jest klawiszen [ESC]. 

W przeciwieństwie do dysków, nazry zbiorów zapisywanych 
na magnetofonie nie sę obarczone tak ścisłymi ograniczeniami. 
Mogę one mieć dłupość do 16 znaków, w tym wtrąconych spacji 
i znaków przestankowych, % pewnych wypadkach nazwy mogą być równe 
dobrze ominięte, 

Następująca lista opisuje różnice e w działaniu 
poszczególnych komend języka BASIC. Pełen opis koment można 
znaleźć w rozdziale "Kompletna lista ..." 


CAT 
Po wprowadroniu rozkazu CAT wyświetlone zostanie poiecenie 


Press PLAY then any key 

("Naciśnij klawisz magnetofonu ODTWARZANIE, e następnie dowolny 
klawisz klawiatury") 
co sprowadza się do tego, iż należy włączyć taśmę 1 zasygnali- 
zować to komputerowi wciskając dowolny klawisz. Taśma w magneto- 
fonie zacznie się kręcić » komputer zacznie wyświetlać nazwy 
kolejno znsiezionych zbiorów na Lasećłe. 

Zostanie wyświetlony każdy blok stioru, a za nim jeden znak 
wskazujący typ bloku 

$ - to zbiór w języku BASIC, nute zabezpieczony 

fJo- to zbiór w jezyku BASIC, zabezpieczony 
* - Lo zbiór tekstowy (ASCII) 
Gg - to zbiór binarny 
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Na końcu każdej linii komputer wyświetli OK, jeżeli zbiór 


został przeczytany bez błędów; oznacza to, że ładowanie zbioru 


do 


to 


namięci zakończyłoby się powodzeniem. 
Funkcja CAT nie narusza zawartości pamięci komputera, 
Jeżeli zbiór na kasecie nie został zaopatrzony w nazwę, 
CAT wyświetli: 
Unnamed file 


("Zbiśr bez nazwy”) 
Działanie*CAT można przerwać klawiszem [Esc]. 


Błędy odczytu 


Jeżeli żaden z powyższych komunikatów nie pojawi się, 


bądź otrzymamy na ekranie napis 


Read error a ... lub Read error b 


może to oznaczać, że 

Magnetofon nie jest właściwie podłączony do gniazda TAPE 
komputera (patrz część 2 rozdziału "Kurs podstawowy") 

Poziom wyjściowy sygnału z mapnetofonu nie jest dopasowany - na: 
leży użyć pokręteł GŁOŚNOŚĆ lub POZIOM 

Jakość taśmy jest słaba, taśma ma zagięcia 

Taśma uległa rozmagnesowaniu w czasie znajdowania się w blis- 
kim sąsiedztwie głośników lub telewizora 

Taśma nie jest przeznaczona do odczytu przez komputery 

AMSTRAL 


CHAIN 

CHAIN MVRGE 
LOAT. 

MENRGF 

TUN 


Jeżeli pragniesz zoaładorać z taśmy pierwszy napotkany 


zbiśr, nie jest konieczne określanie jego nazwy. 


Przykładowe komendy: 


CHAIN " * 
CHAIN * *, 100 


CHAIN MERGE '* *, 
CHAIN MERGE * *, 100 
CHAIN MERGE * *, 100, DELETE 30-70 


LOAD * * 
LOAD * *, Q+ 1F40 


MERGE * * 


RUN *" * 


Należy zwrócić uwagę, że ostatnia komenda wykonuje się 
samoczynnie, gdy naciskamy klawisz [ENTER] trzymając jednocześ- 
nie klawisz [CONTROL]. Należy używać tego sposobu korzystając 
z oprogranowania na kasecie, po komendzie [TAPE 

Komputer poinstruuje; 


Press PLAY then any key 


/co oznacza: natiśnij klawisz magentofonu PLAY a następnie 

dowolny klawisz komputera/ 

Taóma zacznie się obracać, a komputer załaduje odpowiedni zbiór. 
Na ekrenie ukaże się następujący komunikat: 


Loading FILENAME block 1 
/cocnacza: ładowany jest zbiór FILENAME, blok 1/ i będzie to 
powtarzane tyle razy, ile bloków zawiera ładowany program, 
Jeżeli pierwszym znakiem zbioru jest wykrzyknik / | /, 
to powyższy komunikat nie będzie wyświetlany; nie będzie też 
konieczne naciskanie żadnych klawiszy. /Należy zatem pamiętać 
o uruchomieniu magentofonul/. Jeżeli takie programy są również 
uruchamiane z dysku, to wykrzyknik zostanie w czasie czytania 
nazwy zbioru z dysku pominięty. Zwróćny uwagę, że |! nie zajmuje 
żadnej pozycji w nazwie zbioru - ani zapisanego na kasecie, 
ani na dysku. 
Przerwanie operacji poprzez naciśnięcie ESC powoduje 
wyprowadzenie na ekranie komunikatu . 
Broken in 


Jeżeli ładowanie zbioru nie zakończyło się powodzeniem 
- wróć do fraguentu tego rozdziału pod tytułem "Błędy odczytu", 


Ostrzeżenie 


kiewnętrzny interfejs dysku zsjmuje pewien obszar pamięci; 
o"szar ten hył używany przez niektórych zawodowych programistów 
przy okazji tworzenia oprozramowania na kasetach, Takie pro- 
gramy nie będą działać właściwie na CPC 6128 z dołączonym 
magnetofonem. 


EOF 
POS(+Ł 9) 


Funkcje te działają na kasetę podobnie jak na dysk 


INPUT %+9 
LINT INPUT 49 
OPENIN i CLOSEIN 


Jeżeli użyty ma być pierwszy zbiór na taśmie, to nie trzeba 
podawać nazwy zbioru. Przykładowa komenda: 


OPFNIN" " 
Yyświetlona będzie instrukcja: 
Press PLAY then any key 


... CO Oznacza, że winniśmy nacisnąć klawisz PLAY. magnetofonu, 

a następnie dowolny klawisz komputera. Taśma zacznie się kręcić, 

a komputer załaduje do umiejscowionego w pamięci "bufora zbioru" 

pierwsze 2KB zbioru. Następnie dane z bufora są pobierane aż 

do jego opróżnienia, po czym znowu wyświetlone zostanie polecenie 


Press PLAY then any key 
Na ekranie pojawi się napis 
Loading FILFNAME block 1 


1, w czasie ładowania kolejnych bloków, kolejne informacje 


Jeżeli pierwszym znakiem zbioru w komendzie OPENIN jest 
wykrzyknik (!), to powyższy komunikat nie będzie wyświetlany; 
nie będzie też konieczne naciskanie żadnych klawiszy. (Należy 
zatem pamiętać o uruchomieniu magnetofonu !). Jeżeli takie 
programy są również uruchamiane z dysku,' to wykrzyknik zostanie 
w czasie czytania nazwy zbioru z dysku pominięty. Zwróćmy 
uwagę, że |! nie zajmuje żadnej pozycji w nazwie zbioru - ani 
zapisanego na kasecie, ani na dysku, 

Przerwanie operacji poprzez naciśnięcie ESC powoduje 
wyprowadzenie na ekranie komunikatu 


Broken in 


Jeżeli ładowanie zbioru nie zakończyło się powodzeniem 
- wróć do fragmentu tego rozdziału pod tytułem "Błędy odczytu". 


LIST ł9 
OPLNOUT 1 CLLSFOUT 
PRINT 49 
WRITE +9 


Jeżeli pragniemy zapisać zbiór jako "Unnamed-file" (tj. 
"Zbiór bez nazwy"), to nie musimy podawać nazwy zbioru. Przykła- 
dowa komenda: 


OPENOUT" " 


Pierwsze 2KB zbioru zostanie wpierw przeniesione do obszaru 
pamięci nazywanego "buforem zbioru", Gdy bufor będzie już pełen, 
wyświetlone zostanie polecenie: 


Press REC and PLAY then any key 


... co oznacza, że powinniśmy wcisnąć w magnetofonie klawisze 
RECORD ("Nagrywanie") i PLAY, a następnie nacisnąć dowolny kla- 
wisz komputera, Taśma zacznie się obracać, 8 komnuter zapisze 
na nią zawartość bufora. Następnie: komputer powtórnie zapełni 
bufor kolejnymi 2KB zbioru i wyświetli po raz drugi 


Press REC and PLAY then any key 


... zapisując po chwili bufor na taśmę. 


Jeżeli bufor zbioru jest częściowo tylko zapełnitny 
i komputer napotkał komendę CLOSFOUT, pozostała zawartość zbio» 
ru zostanie zapisana na taśmę i pojawi się 


Press RFC znd PLAY then any key 
Na ekranie zostanie wyświetlony napis 
Saving FILENAMĘ block £x)> 


Jeżeli pierwszym znakiem zbioru w komendzie OPFNOUT jest 
wykrzyknik (!), to powyższy komunikat nie będzie wyświetlany; 
nie będzie też konieczne naciskanie żadnych klawiszy. (Należy 
zatem pamiętać o uruchomieniu magnetofonu!). Jeżeli takie pro- 
gramy są również uruchamiane z dysku, to wykrzyknik zostanie 
w czasie czytania nazwy zbioru z dysku pominięty. Zwróćmy uwagę, 
że ! nie zajmuje żadnej pozycji w nazwie zbioru - ani zapi- 
sanego na kasecie, ani na dysku, 

Przerwanie operacji poprzez naciśnięcie FSC powoduje 
wyprowadzenie na ekranie komunikatu 


Broken in 


Udany zapis na taśmę 


Y celu zapewnienia prawidłowego zapisu: 

1) Sprawdź, czy magnetofon jest prawidłowo połączony z gniazdem 
TAPE komputera (patrz część 2 rozdziału "Wiadomości podsta- 
nowe") 

.2) Sprawdź, czy nokrętła POZIOM i ZAPIS w magnetofonie są 
prawidłowo ustawione 

3) Sprawdź, czy nie zamierzasz użyć kasety słabej jakości luh 
C120 (Polecane są kasety AMSOFT C15) 

"4) Sprawdź, czy magnetofon nie jest wystawiony na działanie 
pól magnetycznych (działające w pobliżu głośniki lub 
telewizor) 

5) Przed usunięciem prozramu z pamięci komputera, sprawdź 
ekorowidz (CAT) taśmy - upewnij się, czy program jest pra- 
widłowo nagrany 

6) Zapewnij okresową konserwację maznetofonu i regularne 


czyszczenie głowie 


211 


SAVE 


Jeżeli nie nadana zostanie zbiorowi żadna konkretna 
nazwa, to zostanie on zapisany jako "Unnamed file" ("Zbiór bez 
nazwy”). Przykładowa komenda: 


SAVE ”" " 
Komputer wyświetli polecenie: 
Press REC and PLAY then any key 


po czym należy wcisnąć w magnetofonie klawisz RECORD ("Nagry- 
wanie") i PLAY, a następnie dowolny klawisz komputera, Taśma 
zacznie się kręcić, 8 komputer zapisze program. 

Na ekranie pojawi się nepis 


Sawing FILFNAME block 1 


a potem kolejno napisy wskazujące na zapisynanie kolejnych 
bloków, aż do końca programu, 

Jeżeli pierwszym znakiem zbioru jest wykrzyknik (!), to 
powyższy komunikat nie będzie wyświetlany; nie będzie też ko- 
nieczne naciskanie żadnych klawiszy. (Należy zatem pamiętać 
o uruchomieniu magnetofonu !). Jeżeli takie procramy sĄ również 
uruchamiane z dysku, to wykrzyknik zostanie w czesie czytania 
nazwy zbioru z dysku nominięty. Zwróćmy uwagę, że ! nie zaj- 
muje żadnej pozycji w nazwie zbioru - eni zapisanego na kasecie, 
ani na dysku, 

Przerwanie operacji poprzez naciśnięcie FSC powoduje 
wyprowadzenie na ekranie komuniketu 


Broken in 


Prosimy przeczytać wcześniejszy akapit "Udany zapis". 
SPFED WRITE 


("Szybki zapis"). Ta komenda dotyczy wyłącznie zapisu na masne- 
tofon i może hyć wydana, gdy komputer ustawiony jest na pracę 
z dyskiem. 


Komunikaty o błędach 


W czasie operacji na taśmie morą być wygenerowane komuni 
katy o błędach o numerach 7, 21, 24, 25, 27 1 32, 
(Patrz - część 6 rozdziału zatytułowanego "Trochę użytecznych 
informacji"). 


Komendy zewnętrzne systemu AMSDOS 


Przełączanie strumieni wejścia/wyjścia między dyskiem 
1 taśmą dokonuje się za pomocą komend 


[TAPE (która dzieli się na |TAPF.IN 1  |TAPE.OUT 
|DISC (która dzieli się na |DISC.IN i |DISC.OUT 


Zestawienie pozostałych komend zewnętrznych 


IA 

| B 

| CPM 

1 DIR 

| DRIVE 
| TRA 

| REN 

| USER 


Są to komendy działające tylko na dysk, niezależnie od tego, 
czy aktualnie pracuje się z dyskiem czy taśmą. 
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ROZDZIAŁ 5 


AMSDOS i CP/M 


Część 1: AMSDOS 


Omawiane zagadnienia: 

— Co to jest AMSDOS 

- Katalog dysku 

- Zmiana dysków 

- Nazwy zbiorów i typy zbiorów 

- Automatyczne określenie typów zbiorów 
- Nazwy zbiorów w systemie z dwoma dyskami 
- Znaki zastępcze 

- Przykładowy program z rozkazami AMSDOS 
- Wykaz rozkazów AMSDOS 

- Kopiowanie i manipulowanie zbiorami 

- Sygnalizowanie błędów 


Wstęp 


AMSDOS rozszerza język AMSTRAPD BASIC, stosowany w Twoim 
komputerze o szereg dodatkowych rozkazów, wyróżnianych za po- 
mocą poprzedzającego je znaku | (pionowej kreski). 

AMSDOS umożliwia użytkownikowi swobodną wymianę dysków, 
jeżeli tylko nie jest prowadzona operacja odczytu lub zapisu 
zbiorów; zmiana dysku w czasie trwania operacji odczytu lub 
zapisu powoduje wyprowadzenie informacji o błędzie i może pro- 
wadzić do straty danych, wpisywanych do otwartego zbioru 


Katalog /skorowidz/ dysku 


Każdy dysk w specjalnie wydzielonej części zawiera katalog 
/skorowidz/ zapisanych na nim zbiorów (danych). W skorowidzu 
umieszczone są nazwy wszystkich zbiorów i "mapa" określająca 
rozmieszczenie ich na dysku. Na podstawie danych, umieszczonych 
w skorowidzu AMSDOS lub CP/M może określić rozmiar każdego ze 
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zbiorów oraz wolne sriejsce, pozostałe na dysku do dalszego 
wykorzystania. 

Przy odczycie zbioru przeglądany jest skorowidz dysku 
1 określane miejsce jego zapisu. Przy zapisie nowego zbioru 
umieszczany jest on w wolnych do tej pory obszarach dysku 
a kasowanie zbioru uwalnia zajmowane przez ten zbiór miejsce. 
Skorowidz opisuje zbiór w jednostkach 1 KB i zawierać może do 
64 pozycji. Jedna pozycja skorowidzu opisać może zbiór o obję- 
tości do 16 KB, większe zbiory rapisywane SĄ na kilku pozy- 
cjech, chociaż nie jest to zauważane przez użytkownika. 


Zmiana dysków 


AVWSLOS (1 CP/M Plus) zezwala na wyjmowanie i wymianę 
dysków w dowolnej chwilt, kiedy napędy nie pracują i nie są 
otrerte żadne zbiory wejściowe lub wyjściowe. Nie jest tu ko- 
nieczne wstępne "zaksięgowanie" dysku, jakie wynagane jest 
w systemie CP/M 2.2. 

Wymiana dysku w czasie trwania operacji zapisu może 
zniszczyć dance na dysku. Jeżeli dysk zmieni się w sytuacji, 
kiedy pozostają na nim otwarte zbiory, to po wykryciu tego 
przez AMSLOS dalsze operacje z nie zamkniętymi zbiorami zosta- 
Ją zaniechano 1 wyprowadzena jest informucja o błędzie. Dane 
wpisane do tych zbiorów do chwili przerwania będą stracone, 
spdyż nie zostanie wypełniona odpowiednia pozycja skorowidzu 
dyskowego. Jednakże AMSDOS może wykryć zmianę dysku jedynie 
poócze* czytania skorowidzu, co wykonywane jest co 16 KB zbio- 
ru, lub w trakcie otwierenia lub zamykania zbioru, Tak więc 
wymiana dysku z otwartymi zbiorami prowadzić może do zniszcze- 
nia do 16 KB danych, 


Nazwy i tyny zbiorów w eystemie AMSLOS 


Norralnie praktykuje się wprowadzanie takich nazw zbiorów 
dyskowych, aby określały one typ zbioru. Nie zmusza to kompute- 
ra Go używania zhiorów w jakikolwiek szczególny seposćb, chociaż 
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niektóre programy akceptują tylko zbiory o Ściśle określonym 
typie. AMSDOS może przyjąć dowolny typ nazwy zbioru, chociaż 
nastawiony jest na wyszukiwanie zbiorów o pewnych określonych 
typach, jeżeli nie otrzymał szczegółowych poleceń (patrz 
"qutomatyczne określanie typów zbiorów") 


Budowa razwy zbioru 


Nazwa zbioru składa się z dwóch części, rozdzielonych 
kropką („). Pierwsza część zawierać może do 8, a druga do 3 
znaków. Prawidłowymi nazwami zbiorów są np.: "ROINTIME. DEM", 
"DISCKIT3.COM" 1 "DISC.BAS". Obydwie części nazwy zbioru mogą 
być tworzone przez kombinację liter lub cyfr, nie mogą w nich 
natomiast występować spacje lub kropki. 

Druga część nazwy zbioru jest nazywana typem zbioru. Nie- 
które powszechnie używane typy zbiorów to: 

. «spacja> Typ nieokreślony. Może to być zbiór danych tworzo- 
ny przez OPENOUT " Ćnazva zbioruy " lub program 
w języku BASIC zapisywany przez AMSDOS przy użyciu 
polecenia SAVE " C nazwa zbioruy", A 

„BAS Program w języku BASIC zapisywany przez AMSTDOS 
rozkazem SAVE "(nazwa zbioru) " lub SAVE 
"(nazwa zbioruy”", P albo SAVE "X( nazwa zbioruj" 

„BAS, A 

„BIN Program lub zawartość obszaru pamięci zapisana 
przez AMSDOS rozkazem SAVE "/ nazwa zbioruy", B, 
( parametry binarne y 

„ BAK Poprzednia wersja zbioru, jeżeli AMSDOS lub inny 
program użytkowy zapisał nową wersję zbioru o tej 
samej nazwie. Umożliwia to użytkownikowi ewentual- 
ny powrót (BAck) do starej wersji zbioru 

» COM Zbiór /program/ wykorzystywany jako polecenie 
systemowe (COMmand); wszystkie programy systemo- 
we w systemie CP/M są zapisane w postaci zbiorów 
tego typu 

„ SUB Zbiór poleceń dla programu SUBMIT w systemie CP/M 
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Automatyczne określanie typów zbiorów 


AMSLOS samoczynnie zapisuje (poleceniem SAVE) zbiory o od- 
powiednio dobranym typie zbioru tak, że nie jest konieczne 
określanie typu zbioru, chyba że chce się przypisać nazwie zbio- 
ru inny typ, niż przydzielany automatycznie zgodnie z zamiesz- 
czoną wyżej tabelą. Programy w języku BASIC, programy BASIC za- 
bezpieczone i zbiory binalne zapisywane są na dysk wraz z odpo- 
wiednim nagłówkiem i rozkaz typu: 


LOAD * Ćnazwa zbioru)" 


... umożliwia rozpoznanie typu zbioru i właściwe jego wprowadze- 
nie do pamięci komputera. Jeżeli po rozkazie LOAD AMSDOS nie 
znajdzie w nagłówku określenie typu zbioru, to zakłada, że 
zbiór zawiera program zapieany w ASCII, jawnym tekstem, Po ko- 
mendzie LOAD "nazwa zbioruy", w której nie jest określony 
typ zbioru najpierw poszukiwany jest zbiór typu: 

. «spacjay 
Jeżeli zbiór taki nie istnieje, poszukiwany jest zbiór typu: 

„ BAS 

1 wreszcie zbiór typu: 

„ BIN 


Umożliwia to użytkownikowi skracać określenie zbioru 
1 w większości przypadków nie wprowadzać typu zbioru. 

Dyskowe zbiory danych, otwierane poleceniem OPENOUT 
tł sukcesywnie zapisywane na dysk nie mają przypisanego typu 
zbioru it powinny zawierać jawny tekst pisany w ASCII, wpisywa- 
ny do zbioru rozkazami WRITE, PRINT lub LIST. 

Rozkaz OPENIN, w którym nie określono typu zbioru, powo- 
duje przeszukiwanie zbiorów w takiej samej kolejności, zakłada 
nych typów, jak rozkład LOAD. 


Nazwy zbiorów w systemie z dwoma napędami dyskowymi 


W systemie z dwoma napędami dyskowymti, tzn. w przypadku 
dołączenia do komputera dodatkowego napędu dyskowego, operować 
można zbioram: występującymi na dwóch dyskach. Komputer nie 
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poszukuje automatycznie zbiorów na obu dyskach, lecz tylko 

na jednym, określonym przez użytkownika. W tym celu należy wpro- 
wadzać polecenie [A, |B lub [DRIVE (w pełni opisane nieco dalej), 
aby wybrać jeden z dwu napędów dyskowych, a następnie napisać 
nazwę zbioru lub poprzedzić nazwę zbioru przedrostkiem A: 

albo B:. Tak więc, na przykład zarówno: 


IB 
SAVE "PROG.BAS" 
A 
jak i: 
A 
SAVE "B:PROG.BAS" 


powoduje zapisanie programu na dysku, umieszczonym w dodatko- 
wym napędzie B. 

Podobnie zmienić można numer użytkownika (USER) przez po- 
danie numeru z zakresu od 0 do 15 jako przedrostka nazwy zbioru. 
Rozkazy: 


LOAD "15:PROG.BAS" 


SAVE "15:PROG.BAS" 


ładują i zapisują program dostępny tylko dla użytkownika (USER), 
oznaczonego numerem 15. 

Można także określić jednocześnie numer użytkownika i dysk, 
wprowadzając odpowiednie oznaczenia przed nazwą zbioru, na przy- 
kład: 


RUN "15B:PROG.BAS" 


Znaki zastępcze 


Często wymagane jest wykonanie określonych operacji (kopio- 
wanie, kasowanie itp.) kolejno na kilku zbiorach. Wprowadzenie 
nazwy zbioru powoduje wyszukanie w skorowidzu dyskowym zbioru, 
którego nazwa dokładnie, co do znaku odpowiada nazwie umiesz- 
czonej w rozkazie operacji. W rozkazach dotyczących niektórych 
operacji można jednakże zastąpić wybrane znaki nazwy zbioru 


znakiem ?, co umożliwia wykonanie operacji na pewnej grupie 
zbiorów. Jeżeli cała nazwa lub dalsza część nazwy z wyjątkiem 
kilku pierwszych znaków zastąpiona jest znakami ? , grupę tych 
znaków zastąpić można symbolem  . I tak na przykład FRED, 3 
jest równoważnym skrótem FRED. ?7?? a F> .BAS zastępuje 
F????7?7??.BAS. I wreszcie wyrażenie 4.% oznacza "wszystkie 
zbiory". Poniżej przedstawiono przykład selekcji zbiorów na 
podstawie nazw ze znakami zastępczymi: 


Zbiory wybierane przez: 


piegą 4 -BAS FRED?. BAS F% .BA? 
BFRT.BAS BERT .BAS 

FRED1.BAS FRED1.BAS PRED1.BAS PRED1 . BAS 
FRED2.BAS PRED2.BAS PRED2 .BAS FRED2.BAS 
FRUD3. BAK PRED3 .BAK 
FRED3.BAS FRED3.BAS FRED3. BAS FRED3 . BAS 
FINISH.BAS FINISH.BAS FINISH. BAS 


Przykłady użycia w prozramie dyrektyw systemu AMSDOS 


Dla lepszego zrozumienia dyrektyw systemu AMSDOS, proponu- 
Jemy prześledzenie poniższych przykładów, korzystając przy tym 
z wyjaśnień zawartych w dalszej części tego rozdziału. NIE WPI- 
SUJ 4 NIF URUCHAMIAJ tych programów, jeżeli w komputerze 
umieszczony jest któryś z orycinalnych dysków z systemem CP/M. 


Przechowanie zmiennych i przechowanie zawartości ekranu 


Przedstawiany program zapisuje dane na dysku; przed jego 
uruchomieniem należy zatem umieścić czysty (sformatowany) lub 
roboczy dysk w napędzie dyskowym. Program rysuje na ekranie 
flagę angielską ("Union Jack”) a następnie wpisuje zawartość 
całego ekranu na dysk, 
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10 dumpfile$="flagdump.srn" 


20 
30 
40 
50 
66 
70 
80 
70 
100 
110 


120 
130 


140 
150 
160 
170 


180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 


MODE 1:BORDER © 

DIM colour (2) 

FOR i=Q0 TO 2 

READ colour (i):REM wez kolory z DATA 

INK ircoloouwr (i) 

NEXT 

ON ERROR GOTO 430 

OPENIN "param.dat" 'sprawdz czy zbior istnieje 


CLOSEIN:ON ERROR GOTO © 

IF errnum=32 AND DERR=146 THEN CLSz 

GOTO 160 ”zbior nie istnieje 

CURSOR 1:PRINT "Czy chcesz zmienic stary zbior”? Y/N"; 
a$=INKEY$:30N INSTR(" YN"»UPPER$ (a$)) 

GOTO 136;150»140:G0TO 138 

PRINT a$:PRINT "Program przerwany”:END 

PRINT a$:CURSOR 0 

OPENOUT *"param.dat" 

WRITE $9??rdumpfile$»1: 

REM przechowaj nazwe zbioru i tryb pracy ekranu 

FOR i=© TO 2 

WRITE $7»colour(i): REM przechowaj kolory 

NEXT i 

CLOSEOUT 

CLS 

gp=1:GRAPHICS PEN gpiw=125 
x=-65:0=5240:4=400:b0=5-150:GOSUB 400 

u=0:b=156:GOSUB 400 

x=57528a=3-246:115=4600:b=-1500:00SUsB 400 

u=Q:b=150:GOSUB 400 

p=2:GRAFHICS PEN gpiw=46 
240:x=-406:54=400:b=5—1060:G0SUB 400 

Q©:y=0:b=150:GOSUB 400 

a=-240:x=640:5=0:b=150:GUSUB 400 
Xx=6000:5=400:5=5-150:G0SUBR 400 
ORIGIN 0r0»2567380r074060:CLG 
ORIGIN 0r0r0>6407150r2506:CLU 
ORIGIN 0;©»280»352r0r7400:CLG i 
ORIGIN 0r0r0;640;168»230:CLG 
SAVE dumpfile$»br4C000;44200 
DATA 2266 

END 

MOVE xryEDRAWR arbiDRAWR wrOSDRAWR -ar-b 
MOVE x+a/2+w/2ry+b/2:FILL gp 

RETURN 

errnum=ERR:RESUME NEXT 


9 
a 
x 


SRP 


Zwróć uwagę na użycie nazw zbiorów typu .DAT 1 .SRN. 
Symbole takie nie mają żadnego istotnego znaczenia, ułatwiają 
jedynie zapamiętanie co przechowuje zbiór (DATA -— dane 
1 ScReeN - ekran). Zbiór PAHAM.DAT założony zostanie jako .zbióf 
danych tekstowych (ASCII) typu nieokreślonego zaś zbiór 
FLAGDUMP.SRN jako zbiór binarny. 

Zauważ, że program próbuje czytać ze zbioru PARAM.DATA 
przed zapisem do tego zbioru aby ustalic, czy zbiór taki już 
istnieje. Jeżeli zbiór NIE istnieje, BASIC zgłasza błąd, co 
Jest przechwytywane przez program w sposób, umożliwiający wyko« 
nywanie programu bez jego przerywania, W przypadku gdy zbiór 
już ISTNIEJE, nie jest zgłaszany żaden błąd i program pyta 
się, czy chcesz wpisać nową treść zbioru w miejsce dotychcza- 
sowej. 

Niektóre dane, opisujące stan ekranu jak tryb wyświetlania 
(sreen mode), kolory i nazwa zbioru, zawierającego aktualne 
informacje przechowywane są w osobnym zbiorze z parametrami, 
Ilustruje to użycie zbioru danych, do którego wpisuje się (roz- 
kazem WRITE) programowe zmienne (dumpfile$g ) i stałe (1) w celu 
przechowania ich do użycia przez inny program. 


Odtworzenie treści ekranu 


Poniżej przedstawiono przykład uniwersalnego programu 
wpisującego treść ekranu, którego działanie kontrolowane jest 
przez zbiór z parametrami. Proszę zauważyć, jak zmienne pobie- 
rane są 7e zbioru dyskowego za pomocą rozkazu INPUT oraz użycie 
funkcji FOF (End Of File - koniec zbioru) do samoczynnej zmiany 
wielkości zbioru, Należy pamiętać, że treść ekranu, wpisywanego 
przez ten program została zapisana w ustalonych adresach pamię- 
ci a ich zmiana prowadziłaby do zniekształceń obrazu, Dlatego 
w prozramie wykonywana jest instrukcja MODE z parametrem, prze- 
chowywanym w zbiorze danych. Ponadto trzeba uważać, aby nie 
spowodować przewijania /skrolowania/ treści ekranu. 


160 DIM colour (15):REM miejsce dla 16 kolorow 
20 OPENIN "param.dat" 

30 INPUT £9r filename$śrscreenmode 
4Q i=©0 

50 WHILE NOT EOF 

60 INPUT £9rcolour (i) 

70 INK ircolour (i) 

80 i=i+1 

90 WEND 

100 CLOSEIN 

110 MODE screenmode:BORDER 0 

120 LOAD filename$ 


Wykaz rozkazów systemu AMSDOS, dotyczących operacji 
zewnętrznych 


IA 

|A 

ROZKAZ: Ustanawia jako domyślny napęd dyskowy A. 

Odpowiednik rozkazu ]|DRIVE z parametrem A 

(Symbqlem A oznaczony jest główny napęd dyskowy w komputerze) 
|B 

1B 

ROZKAZ: Ustanawia jako domyślny napęd dyskowy B. 

Odpowiednik rozkazu DRIVE z parametrem B. 

(Główny napęd dyskowy w komputerze oznaczony jest symbolem A) 
IcPM 

|cpM 

ROZKAZ: Uruchamia system operacyjny CP/M przez wprowadzenie 
tego systemu z dysku. W oprogramowaniu systemowym komputera 
dostarczane są dwie odmiany systemu CP/M: CP/M Plus i CP/M 2.2, 
Do wykonania tego rozkazu konieczne jest umieszczenie w głównym 
napędzie dyskowym odnowiedniego dysku systemowego. Z kopii 
Strony 1 ładowany jest CP/M Plus, z kopii Strony 4 ładowany 
jest starszy system CP/M 2,2. 


1DIR 
|DIRT[ ,4 wyrażenie tekstowe)] 

|DIR, "X .BAS" 
ROZKAZ: Wyświetla skorowidz dysku w takiej samej formie, jak 
system CP/M oraz podaje pozostałe na dysku wolne miejsce. Jeżeli 
Kwyrażenie tekstowey zostanie pominięte, przyjmowane jest 
zamiast niego wyrażenie zastępcze ł.X /wszystkie zbiory/: 


I Disc 

I DISC 

ROZKAZ: Łączy w sobie jednocześnie dwa rozkazy: | DISC.IN 

1 | DISC.OUT 

IDISC.IN 

|DISC.IN 

ROZKAZ: Oznacza użycie dysku jako źródła zbioru wejściowego 
I prsc.OUT 

| DISC.ouT 
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ROZKAZ; Oznacza użycie dysku do umiejscowienia zbioru 
wyjściowego 
| DRIVE 
|DRIVE,£ wyrażenie tekstowe) 

[DRIVE, "A" 
ROZKAŻ: Ustanawia jako domyślny określony napęd dyskowy. 
Rozkaz nie zostanie efektywnie wykonany jeżeli AMSDOS nie 
będzie mógł czytać dysku z żądanego napędu dyskowego (nie do- 
łączony drugi napęd luh nie włożony dysk) 
| ERA 
|FRA, (wyrażenie tekstowe ) 

|ERA, "%.BAK" 
ROZKAZ: Kasuje (ERAses) wszystkie zbiory o podanej nazwie, je- 
żeli nie są to zbiory "tylko do czytania" (Read/Only). 
W 4wyrażeniu tekstowymb występować mogą znaki zastępcze 
(7? %). 
| REN 
|REN, (wyrażenie tekstowej , Ć wyrażenie tekstowe) 

|REN, "NEWNAME.BAS", "OLDNAMF.BAS" 
ROZKAZ: Nadaje zbiorom nową nazwę (REName). Nie może to być 
nazwa istniejącego już na dysku zbioru, Nie dopuszcza się 
stosowania znaków zastępczych (?%). 

W Ńwyrażeniu tekstowym) może być wprowadzony numer 
użytkownika (USER). Dla przykładu, polecenie: 

[REN, "f:NEW.BAS", "15:0LD.BAS" 
zmienia nazwę zbioru OLD.BAS użytkownika nr. 15 na NEW,BAS 
użytkownika nr. f, zmieniając jednocześnie przypisanie zbioru 
do użytkownika 
I TAPE 
| TAPE 
ROZKAZ: Łączy w sobie jednocześnie dwa rozkazy: | TAPE.IN 
i |TAPE.OUT. Używany w przypadku dołączenia zewnętrznego 
magnetofonu. 
| TAPE.IN 
|TAPE.IN 
ROZKAZ: Oznacza użycie taśmy magnetofonowej (TAPE) jako nośnika 
zbioru wejściowego. Użyrany w przypadku dołączenia zewnętrznego 
do magnetofonu 
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| TAPE. OUT 
| TAPE.OUT 
ROZKAZ: Oznacza użycie taśmy magnetofonowej (TAPE) jako nośnika 
zbioru wyjściowego. Konieczne dołączenie zewnętrznego magneto- 
fonu 
|usER 
|USFR, (wyrażenie określające liczbę całkowitą > 

|USER,3 
ROZKAZ: Nakazuje prowadzenie wszelkich operacji dyskowych 
(np. CAT, LOAD, | DIR itp.) tyłko na zbiorach użytkownika, 
określonego odpowiednim numerem (od O do 15). Jeżeli nie 
użyto wcześniej tego rozkazu, domyślnie przyjmowany jest użyt- 
kownik nr. O. 

Zbiór określonego użytkownika może być przekazany innemu 
użytkownikowi za pomocą rozkazu | REN, Na przykład, 
REN, "15: EXAMPLE.BAS", "Q:FXAMPLE.BAS" zmienia przyporządko- 
wanie zbioru użytkownika nr. 15 użytkownikowi nr. 0 przy zacho- 
waniu tej samej nazwy zbioru (FXAMPLF.BAS). 


Kopiowanie zbiorów z dysku na dysk 
Zbiory zakładane przez AMSDOS z określonym typem zbioru 


Zbiory takie mogą być kopiowane za pomocą programu PIP 
w systemie CP/M (patrz część 2 tego rozdziału). Każdy typ zbio- 
ru zakładanego przez AMSDOS, opisany wcześniej w punkcie 
"Automatyczne określanie typów zbiorów" jest kopiowany w całoś- 
ci - z dysku na dysk - chociaż treść tych zbiorów nie jest zro- 
zumiała dla żadnego programu CP/M. 


Zbiory ASCII 


Zbiory typu nieokreślonego, zakładane przez AMSDOS są 
zbiorami tekstowymi, zapisywanymi w kodzie ASCII i mogą być 
kopiowane i używane (rozumiane) przez programy CP/M. W szczegól- 
ności możliwa jest swobodna wymiana prozramów zapisanych w ASCII 
i zbiorów danych zapisanych w ASCII między programami systemu 
AMSTOS i systemu CP/M. 
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Zbiory zabezpieczone przed zapisem, "tylko do czytania” 
(Read/only) 


Jest możliwe przy użyciu systemu CP/M nadanie dowolnemu 
zbiorowi statusu "zbioru tylko do czytania” lub specjalnego 
statusu ukazywanie się /lub nie ukazywanie/ w wyświetlanym 
skorowidzu dysku, Atrybuty takie mogą być przypisywane lub ka- 
sowane tylko w systemie CP/M, lecz są one respektowane przez 
MASDOS. Więce szczepółów podano w 2 części tego rozdziału 
(dyrektywa SFT). 


Kopiowanie zbiorów z dysku na taśmę magnetofonową lub odwrotnie 


W systemie CP/M Plus nie ma żadnej możliwości dostępu do 
zbiorów zapisanych na taśmie magnetofonowej ani kopiowania tych 
zbiorów na dysk /lub odwrotnie/. Jeżeli wymagane jest kopiowa- 
nie takich zbiorów, należy użyć system CP/M 2.2 (ze strony 4 
dysków systemowych). CP/M 2.2 zawiera programy CLOAD i CSAVE, 

a ich stosowanie przedstawiono w zamieszczonych dalej tabli- 
cach. 


Procedury kopiowania zbiorów 


W poniższych tablicach ujęto wszystkie przypadki kopiowa- 
nia zbiorów między dyskiem 8 taśmą magnetofonową (z dołączonego 
magnetofonu). Założono przy tym, że nie jest dołączony dodatko- 
wy napęd dyskowy. Nie jest możliwe jakiekolwiek kopiowanie 
zabezpieczonych programów BASIC na taśmę alho z taśmy oraz ko- 
piowanie zbiorów binarnych (takich jak np. gry zapisane w kodzie 
maszynowym) na taśmę albo z taśmy, jeżeli nie są znane adresy 
ładowania. Więcej szczegółów o programach PIP, CLOAD 1 CSAVE 
zamieszczono w 2 części tego rozdziału, 


Dwie następne strony zawierają tablice kopiowania: 
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Błędy sygnalizowane przez system AKSDOS 


Jeżeli wprowadzony rozkaz nie może być przez system 
AMSIOS wykonany, wyświetlany jest komunikat o błędzie. Jeżeli 
występuje błąd w działaniu sprzętu, kominikat o błędzie zakoń 
czony jest pytaniem: 

Retry, Ignore or Cancel ? 

(Powtórz, Pomiń lub Odwołaj) 


Na pytanie to odpowiedzieć można znakami R, I lub C. 
R powoduje powtórzenie operacji, najlepiej po wykonaniu przez 
użytkownika zabiegów, usuwających przyczynę wystąpienia błęd- 
nego działania (np. włożenie dysku do napędu, o czym wcześniej 
użytkownik zapomniał). 
Il powoduje kontynuowanie wykonywanego programu (zadania) 
z pominięciem przerwanej przez błąd operacji; prowadzi to jed- 
nak najczęściej do nieoczekiwanego i nienormalnego rezultatu, 
C powoduje odwołanie: prowadzonej operacji i powrót do stanu 
przed jej zainicjowaniem. 


Znaczenie komunikatów o błędach 


Unknown commanć 
..."Nierozpoznane polecenie", popełniono błąd przy wprowadza- 
niu rozkazu 

Bad command 
-..."Polecenie nieprawidłowe", pomimo rozpoznania rozkazu przez 
system nie może on być z jakiś przyczyn nykonany. Błąd skład 
ni, niewłaściwy parametr lub niewłeściwa konfiguracja sprzętowa 

©nezwa zbioru) already exists 
.„.."Zbiór już istnieje", użytkownik próbuje zmienić nazwę zbioru 
na nazwę zbioru już istniejącego 

Knezra zbioru) not found 

..."zbiór nieznaleziony", wywoływany zbiór nie istnieje 

Drive (drive) : directory full 
..."Skorowidz dysku (drive) całkowicie zapełniony", nie ma 
możliwości wprowadzenia do skorowidza nazwy nowego zbioru 
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Drive Kdrivey : disc full 
..."Dysk (drivejy całkowicie zapełniony”, nie ma miejsca na 
nowy zbiór 

Drive (drive) : disc changed, closing (nazwa zbioru) 
..."Dysk (drive) został zmieniony, zamykając zbiór < nazwa 
zbioru) ", zmieniono dysk z ciągle otwartymi zbiorami na inny 

Ćnazwa zbioruy is read only 
... "zbiór jest tylko do czytanta”, nie ma możliwości zapisu 
do zbioru, Zbiór może być określony jako Read/Only lub jako 
dostępny do odczytu i zapisu (Read/Write) tylko za pomocą 
systemu CP/M. 

Drive Ćdrivey : disc missing 
..."Dysk Cdrive) nie znaleziony”, nie ma dysku w napędzie 
dyskowym lub jest włożony nieprawidłowo. Należy prawidłowo 
wprowadzić dysk, a następnie nacisnąć klawisz R. 

Drive drive) : disc is write protected 
..."Dysk drive) : zabezpieczony przed zapisem", próba zapisu 
dysku z otwartym otworem zabezpieczającym. Wyjąć dysk, zasłonić 
otwór zabezpieczający, włożyć dysk do napędu i nacisnąć kla» 
wisz R. 

Drive drive) : read fail 
..."Dysk 4drivej) : błąd odczytu", błąd sprzętu przy odczycie 
dysku. Zaleca się wyjąć i powtórnie wprowadzić dysk do napędu, 
a następnie nacisnąć klawisz R. 

Drive drive) : write fail 
..."Dysk (drive) : błąd zapisu", błąd sprzętu przy zapisie 
dysku. Zaleca się wyjąć i powtórnie wsunąć dysk do napędu, 
a następnie nacisnąć klawisz R. 

Failed to load CP/M 
..."Nieudane ładowanie systemu CP/M", błąd odczytu podczas 
wprowadzania systemu po rozkazie |CPM lub użycie niewłaści- 
wego dysku systemowego. Próba ładowania systemu CP/M z dysku, 
sformatowanego jako niesystemowy (Data format) powoduje zgło- 
szenie błędu odczytu (read fail error). 
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Część 2: CP/M 


Omawiane zaczadnienia: 

- Yprowadzenie do CP/M 

- Uruchomienie CP/M Plus 

- Polecenia rezydentne 

- Polecenia nierezydentne 

- Zarządzanie urządzeniami peryferyjuymt 
- Praca z CP/M 2.2 


CP/M Plus to dyskowy system operacyjny. Wysoka efektywność 
tego systemu daje Ci dostęp do całej potęgi Twojego CPC 6128, 
w pełni wykorzystując 128K-bajtową pamięć RAM z ponad 61 KB 
przeznaczonymi na programy 'użytkowe . CP/M zapewnia swobodny 
dostęp do zbiorów danych, a implementacja dostosowana do 
CPC 6128 zawiera skuteczny emulator zespołu monitora ekranowego, 

CP/M jest szeroko stosowany w bardzo wielu komputerach 
1 istnieją tysiące różnych programów użytkowych, które mogą 
być dostępne dla Ciebie wraz z całym związanym z nim bogactwem 
wiedzy i doświadczenia. 

Szczegółowy opis systemu CP/M Plus wraz z informacjami. 
jak pisać własne programy użytkowe oraz omówieniem implementa- 
cji systemu w komputerze AMSTRAD zawiera opracowanie 
SOFT971-A Guide to CP/M Plus (Przewodnik po CP/M Plus) a także 
inne publikacje firmy AMSOFT lub innych wydawców. 


"stęp 


System operacyjny CP/M umożliwia Ci komunikowanie się 
z komputerem, manipulowanie zbiorami i sterowanie urządzeniami 
oeryferyjnymi. Rozkazy systemowe i umieszczone na dyskach 
programy użytkowe pomogą Ci wykonać zadanie, jakim jest napi- 
sanie 1 uruchomienie własnych programów, dostosowanych do Twoich 
potrzeb i operujących Twoimi danymi. Możesz nawet stać się 
ekspertem w zakresie działania CP/M i różnych prozramów użytko- 
wych 1 czasami Twoje doświadczenie może być pomocne dla nas 
w rozwiązywaniu wspólnych problemów, Na początek trzeba wie- 
dzieć tylko jak zacząć i reszta tego rozdziału zawiera wstępne 
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informacje o możliwościach i zaletach systemu bez zaciemniania 
istotnych informacji zbyt wielką liczbą szczegółów, 

Podobnie jak BASIC, który pracować może w trybie bezpo- 
średnim, sygnalizowanym napisem "Ready", CP/M pracuje w trybie 
hezpośredniego wykonywania poleceń operatorskich, jeżeli wy- 
świetlany jest znak zachęty A) lub B)>. W tym trybie system 
wykonuje jedynie kilka podstawowych poleceń rezydentnych. 
Ogromna większość poleceń systemowych wykonywana jest jako tzw. 
"polecenia przejściowe" - nierezydentne. Nazwa ta wynika z tego, 
że programy realizujące takie polecenie zostają wprowadzone do 
pamięci komputera z dysku tylko w razie konieczności ich wyko- 
nywania. Programy realizujące polecenia rezydentne są natomiast 
wbudowane na stałe w zasadniczy systemowy program operacyjny. 

System sygnalizuje błędy w formie standardowych komunika- 
tów systemu CP/M a ponadto sygnalizuje szereg błędów związanych 
ze sprzętem w wyróżnionej przesuwającej się najniższej linii 
ekranu. 


CP/M Plus na dysku 


Zasadnicza część systemu CP/M Plus znajduje się w specjal 
nym zbiorze typu ".EMS" na Stronie 1 kompletu dysków systemowych 
System ładowany jest z tego zbioru do pamięci komputera w dwu- 
stopniowym procesie wprowadzania. 

Po komendzie |CPM w systemie.AMSDOS wprowadzana jest naj- 
pierw do pamięci zawartość pierwszego sektora ścieżki 0. z 
Na dyskach systemowych sektor ten zawiera program ładujący do 
pamięci komputera zbiór typu EMS. Pozostałe sektory ścieżek 
systemowych są puste (nieużywane). 


Profilowanie parametrów przy starcie 


Po zakończeniu procesu ładowania, podczas inicjalizacji 
pracy systemu CP/M Plus poszukiwany jest na dysku zbiór 
PROFILE.SUB. Jeżeli zbiór taki istnieje, wykonywane są zapisane 
w nim instrukcje. Można to wykorzystać do przeprogramowania 
klawiatury, zmiany sposobu wyświetlania na ekranie, inicjaliza- 
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Kod Klawisz Działanie 
kontrolny 
[CONTROL]A Przesuwa kursor © jeden znak w lewo 
[coNTROL]B [CONTROL] <- Przesuwa kursor do początku linii. 
lub Jeżeli kursor jest już na początku 
[CONTROL] + linii, przesuwa kursor do końca 


[CONTROL] C [CONTROL] [ESC] 
[CONTROL] E [CONTROL] (RETURN) 


[CONTROLJF -— 
[CoNrRoLjG [CLR] 
(CONTROL]H (DFL) 


(coNTRor] I (rAE) 


[EONTROL) J 
[CONTROL] K [CONTROL) [CLR] 
[CONTROL]M [RETURN] 


lub 
[ENTER] 

[CoNTROLJ P 
[£oNTRoL) Q 
(CONTROL)R [CONTROL] (ENTER) 
(CoNTRoL] s (rscj] 
[CoNrnon)u 
[£oNTRoL)w (coPY) 
[GoNTROL]x (CONTROL) (DEL) 


[£oNTROL) z 


linii 
Zaniechanie wykonywanej operacji 


Przenosi dalszy ciąg linii do 
początku następnej linii /fizycz- 
ny koniec linii/ 


Przesuwa kursor: o jeden znak w prawo 
Kasuje znak wskazywany przez kursor 


Kasuje znak w miejscu kursora 
i cofa kursor o jeden znak w lewo 
(Backspace) 


Przesuwa kursor do następnej pozy- 
cji tabulacji 


Kończy wprowadzanie linii rozkazu 
Kasuje do końca linii 
Kończy wprowadzanie linii rozkazu 


Włącza lub wyłącza wyprowadzanie 
znaków jednocześnie na ekran 
i drukarkę 


Wznawia zatrzymane wcześniej ry- 
prowadzanie znaków na ekran 


wypisuje ponownie vprouwedzoną 
linię rozkazu 


Wstrzymuje wyprowadzanie znaków 
na ekran; wznowienie wyprowadzania 
za pomocą [CONTROLJQ 


Anuluje wprowadzoną linię 


Wywołuje ostatnio wprowadzoną 
linię rozkazową 


Kasuje linię od początku 
do pozycji kursora 


Koniec tekstu 
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Nazwy zbiorów 


Wiele rozkazów używa jako parametr nazwy zbiorów. W przy- 
padku określonych rozkazów nazwy zbiorów zawierać mogą znaki 
zastępcze (patrz punkt "Znaki zastępcze" w części 1 tego roz- 
działu). Wszystkie nazwy zbiorów przyjmowane są tak, jak by 
były pisane dużymi literami. 

W poleceniach rezydentnych i większości programów użytko- 
wych nie jest wymagane pisanie nazwy zbiorów w cudzysłowach 
" ". Nazwa zbioru może być poprzedzona symbolem A: lub B:, 
określającym użycie odpowiedniego napędu dyskowego. 

Typowym rozkazem CP/M jest np.: 


TYPE KFYS.CCP 


zdzie TYPE oznacza polecenie wyświetlenia na ekranie a KEYS.CCP 
określa nazwę zbioru, którego treść ma być wyświetlana. 


Przełączanie dysków 


% przypadku dołączenia drugiego napędu dyskowego, można 
ustanowić domyślne przyjmowanie pracy z napędem A albo B 
przez wprowadzenie polecenia A: lub B: po znaku zachęty 
/gotowości/ B> albo A>. Wyświetlany znak gotowości pokazuje, 
który dysk jest aktualnie domyślnie wybierany. Dodanie przed- 
rostka A: lub B: przed nazwą zbioru może nakazać pracę z in- 
nym napędem, nie zmieniając jednakże dysku przyjmowanego domyśl- 
nie w przypadku gdy nie podano symbolu dysku przed nezwą zbioru. 


Dolecenia rezydentne /bezpośrednie/ 


System CP/M Plus wykonywać może szereg poleceń bezpośred- 
nich /rezydentnych/, wproweczenych po znaku zachęty A> lub 
Bb». Nazwę polecenia podawać można w formie skrótowej. Opisane 
poniżej proste funkcje wbudowane są w stale rezydujący w pamię- 
ci komnutera system oneracyjny, tą samą nazwą wywołać można 
jednak także bardziej złożoną funkcję nierezydentną, realizowaną 


przez dodatkowe prograny wprowadzane 2 dysku systemowego, 
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DIR 


DIR powoduje wyświetlenie skorowidzu (DIRectory) dysku. 
Nazwy zbiorów nie są przy tym porządkowane w żaden szczególny 
sposób, a kolejność ich wyprowadzania odpowiada kolejności 
umieszczenia w skorowidzu, W nazwach zbiorów dołączanych jako 
parametr dyrektywy stosować można znaki zastępcze. DIR nie 
wyświetla nazw zbiorów z nadanym atrybutem SYS 


DIR : wyświetla skorowidz przyjmowanego domyślnie dysku 

DIR B: wyświetla skorowidz cysku B: 

DIR *.BAS podaje listę zbiorów typu .BAS 

DIR B:%.BAS podaje listę zbiorów typu .BAS z dysku B: 

DIR PIP.COM wprowadza tylko nazwę zbioru PIP.COM (o 1le zbiór 
taki występuje w skorowidzu) 


DIRSYS lub DIRS 


DTIRSYS lub DIRS wyświetla listę występujących w skoro- 
widzu zbiorów z nadanym atrybutem SYS . Poza tym działa iden- 
tycznie jak DIR. Atrybut SYS opisano nieco dalej. 


ERASE lub ERA 


Usuwa (ERAse) nazwę zbioru ze skorowidzu dysku. Sam zbiór 
pozostaje nadal na dysku, dopóki w jego miejsce nie zostanie 
wpisany nowy zbiór, jednakże w wyniku usunięcia go ze skorowidzu 
staje się już niewidoczny /niedostępny/. W podawanych jako pa- 
rametr dyrektywy nazwach zbiorów stosować można znaki zastępcze, 
jednakże w takim przypadku wyprowadzane jest żądanie potwierdze- 
nia dyrektywy. ERA nie listuje nazw kasowanych zbiorów. Jeżeli 
jakikolwiek zbiór, który ma być usunięty okazuje się zbiorem 
zabezpieczonym przed zapisem /tylko do czytania" - Read/Only/, 
to przerywane jest wykonywanie dyrektywy. Atrybut "tylko do 
czytania” jest opisany nieco dalej. 


TRA PIP.COM usuwa zbiór PIP.COM 
FRA B:PIP.COM usuwa zbiór PIP.COM z dysku B: 
ERA %.BAS usuwa wszystkie zbiory typu .BAS 
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RENALME lub REN 


REN zmienia nazwę zbioru (REName). Podaje się najpierw 
nową nazwę zbioru a następnie znak = i starą nazwę zbioru. 
Jeżeli nowa nazwa już istnieje, sygnalizowany jest błąd. 

Polecenie rezydentne REN nie dopuszcza stosowania znaków 
zastępczych w nazwach zbiorów; użycie takich znaków powoduje 
wywołanie nierezydentnego programu RENAME „COM 


RFN NIWNAMF.BAS = OLDNAMF. BAS zmienia nazwę zbioru 

z OLDNAME.BAS na NEWNAME. BAS 
RFN B:NEWNANF.BAS = OLDNAME. BAS zmienia nazwy zbiorów 

na dysku B: 


TYPE lub TYP 
Wyświetla na ekranie treść /zawartość/ zbioru. Zbiór musi 


być zbiorem tekstowym ASCII; w innym przypadku wystąpić mogą 
nieprzewidziane i niepożądane efekty. 


TYPE KTYS.CCP 


wyświetla zawartość zbioru KFYS.CCP 


USER lub USE 


USER zmienia numer aktualnego użytkownika. Przy inicjali- 
zacji systemu CP/M Plus system przyporządkowany zostaje użytkow- 
nikowi nr. O. System zapewnia normalny dostęp tylko do zbiorów 
aktualnie określonego użytkownika; umożliwia to podział dysku 
/4 skorowiezu dyskowego/ między kilku różnych użytkowników, 

Zbiory Użytkownika Nr. O z przyporządkowanym atrybutem 
"sys! są dostępne dla wszystkich użytkowników, Pozwala to na 
korzystanie z programów systemowych i aplikacyjnych przez róże 
nych użytkowników, bez konieczności kopiowania tych programów 
do obszarów dysknwych poszczególnych użytkowników. 


LSYR 3 


przyporządkowywuje system użytkownikowi nr 3. 
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Polecenia nierezydentne 


Do prowadzenia bardziej złożonych operacji na zbiorach, 
niż umożliwiają to polecenia rezydentne, należy użyć jednego 
z licznych dostarczonych programów użytkowych. Programy takie 
wywoływane są przez proste napisanie ich nazwy, za którą w ra- 
zie potrzeby umieszcza się nazwę zbioru i/lub dodatkowe para- 
metry. Prawdopodobnie wywołyrałeś już w ten sposób program 
DISCKIT 3. : 

Polecenia nierezydentne należą do jednej z dżicznych, opi- 
sanych niżej grup. Pełna dokumentacja tych programów jest bar- 
dzo obszerna i dalsze informacje znaleźć można w zbiorze HELP 
(na 3 Stronie pakietu dysków systemowych) oraz w opracowaniu 
SOFT971-A Guide to CP/M Plus. 

Programy DISCKIT 3, SETKEYS, SETLST, SETSIO, PALETTE, 
LANGUAGE i AMSDOS, pakiet sterowania ekranem GSX oraz zaimple- 
mentowana wersja LOGO 3 zostały opracowane przez firmę AMSTRAL 
i są przeznaczone do stosowania wyłącznie w komputerach tej 
firmy. Programy te nie będą działały w żadnym innym komputerze 
z systemem CP/M. 

Jest możliwe wprowadzenie kilku poleceń w jednej linii 
rozkazowej, rozdzielając poszczególne polecenia znakiem 
wykrzyknika, np.: 


LANGUAGF 3] SETKEYS KFYS.WP 


Zarządzanie urządzeniami peryferyjnymi 


DISCKIT 3 jest programem, umożliwiającym formatowanie, 
koniovanie i sprawdzanie dysków, Kopiowanie zbiorów no Cysk 
czysty (niesformatowany) poprzeczone jest formatowaniem, co 
"jest szybsze niż osobne formatowanie i kopiowanie. Wyświetlany 
na ekranie zbiór poleceń (menu) podaje, którymi klawiszami 
(głównie spośród rydzielonych klawiszy funkcyjnych) steruje 
się działaniem programu. Program umożliwia stosowanie specjal- 
nego formatu sprzedażnego (Vendor formet), używanego przy 
dystrybucji oprogramowania, chociaż formatowanie systemowe 
(Data format) jest być może bardziej odpowiednie do tego celu 
w systemie CP/M Plus. 
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OSTRZEŻENIE 


Obowiązująca nabywcę umowa licencyjna na system CP/M Plus 
(zawierający zakodowany elektronicznie numer seryjny) zezwala 
na używanie tego systemu tylko w jednym, własnym komputerze. 
Oznacza to, iż w szczezólności zabronione jest przekazywanie 
innym osobom dysków 2 kopią systemu CP/M, oznaczoną TWOIM 
numerem seryjnym. Ponieważ kopie Strony 1 pakietu dysków syste- 
movych zawierają w zbiorze typu .EMS Twój CP/M, uważaj, aby 
nie sprzedać, wymienić lub w jakikolwiek inny sposób rozstać 
się z dyskiem, zawierającym taki zbiór, 


Języki alfabetu 


CPC 6128 zawiera zestaw znaków alfabetu kilku różnych 
Języków, Polecenie LANGUAGF (język) zmienia niektóre znaki, 
wyświetlane na ekranie, umożliwiając używanie znaków stosowa 
nych w różnych alfabetach. Więcej szczegółów na ten temat za- 
mieszczono w części 16 rozdziału "Nieco użytecznych informacji" 

Polecenie: 

LANGUAGE 3 
wprowadza np, znaki języka angielskiego, stosowane w Wielkiej 
Brytanii, co powoduje zamianę znaku funta na 4 zamiast 3 ; 
jaki występuje w użysanym normalnie w komputerze zestawie zna- 


ków. 


Kolory 


Po inicjalizacji systemu CP/M Plus w komputerze €128 
z monitorem kolorowym wyświetlane są na ekranie intensywmie 
białe litery na niebieskim tle. Kolory te można zmienić za po- 
mocą dyrektywy PALETTE z parametrami, określającymi barwy 
"atramentów": pierwszy dotyczy barwy tła (atrament nr 0) 
a drugi liter (atrament nr 1). Kolory określone są liczbami 
z zakresu od O do 63; te same parametry mogą być użyte do 
zmiany jaskrawości wyświetlania tekstu na ekranie monitora 


monochromatycznego (zielonego). 


Można także określić kolory większej liczby atramentów 
aż do szesnastu, jednakże tylko dwa pierwsze są widoczne 
w ustawionym trybie wyświetlania 80-ciu znaków w wierszu 
Polecenie: 
PALETTE 63,1 
zmienia kolory wyświetlania na przeciwne, tzn. niebieskie (1) 
litery na intensywnie białym (63) tle. 
W tabeli podano liczby określające poszczególne kolory 
(lub ich intensywności). Stosować można zarówno wartości dzie- 
siętne jak i szesnastkowe, w zależności od upodobania. 


Kolor Szes- Dzie- Kolor Szes- Dzie- 
nast- sięt- nast- sięt- 
kowo nie kowo nie 

Czarny % 00 [o Pastelowoniebieski ŚŃ2B 43 

Niebieski £ 02 2 Pomarańczowy k 26 44 

Jaskrawoniebieski 403 3 Różowy N2E 46 

Czerwony 4 018 8 Pastelowoszkarłatny M 2F 47 

Szkarłatny 4 of 10 Jaskrawozielony %30 48 

Bladofioletory GOB 11 Zieleń morska %32 50 

Jaskrawoczerwony % oc 12 Jaskrawolazurowy %33 51 

Purpurowy © 0F 14 Cytrynowozielony 11 38 56 

Jaskrawoszkarłatny (OF 15 pastelowozielony KIA 58 

Zielony 820 32 Jasnolazurowy 43B 59 

Lazurowy d 22 34 Jaskrawożółty 830 60 

Błękitny Ń23 (35 _ Pastelowożółty KJE 62 

Żółty 428 40 Jaskrawobiały M 3F 63 

Biały B2A 42 

Klawiatura 


Kody wysyłane przez klawiaturę mogą być zmieniane za 
pomocą polecenia SETKEYS. Umożliwia to przypisywanie różnych 
kodów do poszczególnych klawiszy. Żądane kody muszą być vpisane 
w zbiór, którego nazwę podaje sią jako parametr dyrektyry 
SFTKTYS. Zbiór taki można utworzyć 7a pomocą edytora tekstu, 
programu PIP, lub także w języku BASIC. Dla przykładu: 


SETKEYS KEYS.TST 
gdzie zbiór KEYS.TST zawiera: 
E K8C "DIR" M" expansion token 12 
N S C "fH" backspace = [CONTROL] KH, ASCII08 
przypisuje klawiszom CONTROL ENTER (reprezentowanym przez 
8C) wprovadzenie polecenia DIR RETURN o0oraz klawiszowi przesu- 
wającemu kursor w lewo (klawisz nr. 8) kod funkcji "backspace" 
- kasowanie znaku w miejscu kursora 1 przesunięcie kursora 
w lewo. 

W pakiecie dysków systemorych 6128 znajduje się zbiór 
KTYS.CCP z kodami klawiatury wymaganymi w systemie CP/M, zbiór 
KTYS.DRL do użycia przy pracy z Dr. LOGO (ze Strony 3) oraz 
KEYS.WP, odpowiedni dla wiełu procesorów tekstu (word processors). 


Drukarka i ekran 


Inicjalizację drukarki można przeprowadzić za pomocą 
polecenia 

SETLST (nazwa zbioru) 
gdzte zbiór nazwa zbioru zawiera ciąg znaków, wysyłany do 
drukarkt. Podobnie jak w zbiorze poleceń dla dyrektywy SETKEYS, 
znaki kontrolne mogą być reprezentowane przez: 

f znak) 
lub (wartość znaku) 
luh f<nazwa funkcji) 
gdzie nazwy funkcji to FSC;FF i inne według tabeli kodów ASCII, 
zamieszczonej w rozdziale "Trochę użytecznych informacji". 

Często używanym kodem inicjalizacyjnym dla wielu różnych 
drukarek jest kod o wartości 15 nakazujący drukowanie małą 
czcionką. Kod taki można wysłać w języku BASIC za pomocą rozkazu 


PRINT $8, cm $ (15) 
W systemie CP/M to samo polecenie ma postać 
SETLST CONDENSE 


gdzie zbiór CONDTNSE zawierać musi jedną z poniżej podanych 
pojedynczych linii tekstu: 


1 
ło 
t 4F' 

4 '15' 
Każda z tych linii określa wartość dziesiętną 15. 

Niektóre programy aplikacyjne wymagają użycia ekranu 
o 24 wierszach po 80 znaków. Takie wymiary ekranu można ustawić 
za pomocą polecenia SET24X80. 

Rozkaz: 


SET24X80 
iub 
SET24X80 ON 


włącza tryb wyświetlania 24 x 80 znaków, a: 
SET24X80 OFF 


wyłącza ten tryb pracy. 

Normalnie, w 6128 używany jest ekran o wymiarach 24 x 80 
z najniższą linią zarezerwowaną na komunikaty systemowe. lyłą- 
czenie trybu 24 x 80 można zauważyć tylko w przypadku jedno- 
czesnego wyłączenia pracy linii systemowej. £posób wyłączenia 
tej linii opisano w części 15 Rozdziału 7. 


Kanał transmisji szeregowej 


System CP/M Plus zawiera procedury umożliwiające korzysta- 
nie z pojedynczego szeregowego kanału wejścia/wyjścia. Para- 
metry transmisji przez ten kanał można odczytać za pomocą pole- 
cenia SETSIO (bez żadnego dodanezo parametru): 


SETSIO 


lub ustawić za pomocą polecenia, zawierającego wszystkie lub 
wybrane parametry z: 
SETSIO, RX 1200, TX 75, PARITY NONE, STOP 1, BITS 3, 
HENDSHAKE ON, XOFF OFF 


Szybkość transmisji (liczbę bodów) oraz użyranie lub nie- 
używanie specjalnych znaków rozpoznawczych (status XON/X0OFF) 
można także deklarować za pomocą odpowiedniej dyrektywy DEVICE 
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(urządzenie). DEVICE przynisuje urządzeniom logicznym odpowied- 
nie urządzenia fizyczne. Urządzenia logiczne są oznaczane zna- 
kiem dvukroska : . Aktualne atrybuty urządzeń możne poznać, 


worowadzając polecenie: 
IFVTCE 
a zmianę atrybutów nzyskać za pomocą poleceń takich jak: 


LFVICF SIO [1200] - ustawia szybkość transmisji szerego- 
wej 1200 bodów 

DFVICF SIO [XON)] - włącza »rotokoł XON/XOFF w kanale 
transmisjł szeregowej 

DFVICE SŁO [NOXON]- wyłącza orotukół XON/XOFF 


Można także zmieniać przyporządkowanie urządzeń logicznych 
fizycznymi. Normalnie urządzeniu logicznenu CON: (CcoNsole 
- konsola operatorska) jest przypisane urządzenie fizyczne CRT 
(cathode lay Tube — monitor telewizyjny, klawiatura), urządze- 
niu logicznenu AUX: (AUXillary - pomocnicze) kanał fizyczny 
transmisji szeregowej SIO (Serial Input Output - szeregowe 
wojście-wyjście) a urządzeniu lozicznemu LST: (LIST - urządze- 
nie listujące) urządzenie fizyczne LPT (Line PrinTer - drukarka 
liniowa, dołączana przez sprzęg równoległy typu "*Centronics"). 


Polecenie: 
DFVICF LST:=SIO 


powoduje wysyłanie znaków przeznaczonych dla drukarki do 
wyjścia szeregowego. 

Proszę zauważyć występującą brzy tym zmianę wykorzystania 
strumieni przesyłania informacji, ułatwi to zrozumienie możli- 
wości kopiowania zbiorów, oferowanych przez program PIP. 
Podobnie, zmianę strumieni przesyłowych realizuje się za pomocą 
dyrektyw GFT (nazwa zbioru) i PUT (nazwa zbioru) , które 
powodują pobieranie informacji ze zbioru, zamiast z konsoli 
operatorskiej i odsyłanie informacji do zbioru, zamiast do 
konsoli (monitora) lub drukarki (GET oznacza "dostawać" 

a PUT "umieszczać") 


PIP 
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»]P (Peripheral Interchanse Program) to nroyram użytkary, 
umożliwiający bprzesyłante informacji między rAżnymi urządzenia- 
mi peryferyjnymi kombutera. 

Zasadnicza składnia polecenia jest następująca: 


PIP Kodbiorca> = <żródłoj 


Jako «odbiorca» i <źródłoy może być zadeklarowana nazwa 
zbioru z dopuszczalnymi w nazwie źródła znakami zastępczyni 


albo jedno z podanych poniżej urządzeń logicznych: 


jako źródio: jako ochiorca: 

CON: konsola operatorska/ CON: konsola operatorska/ 
klawiatura monitor 

AUX: wejście pomocnicze AUX: wyjście pomocnicze 

EOF: /Tnd-Of-File/, znak PRN: drukarka, przy czyn przy 
końca zbioru transmisji rozwijane są 


odpowiednio znaki tekułacji, 
dodawana numeracja wierszy 
wydruku i wysyłane znakłi 
przesuwanie stran druku 


Drzykładowe dyrektywy *1* to: 
PIP B:=A: %.COM 
- kopiuje wszystkie (%) zbiory typu .COM z dysku A; na dysku B: 
"IP KTYDOARD.CPMN=KTYS.CCP 
- sporządza kopię zbioru KEYS.CC?, nadając mu nazwę K! 1RUAHD.CPM 
PIP CON:=K'YS.CCP 
- wysyła zbiór KTYS.CC? na ekran (podobnie jak nolecenie 
TYPE KFYS.CCP) 
PIP TYPLIN.TXT=CON* 
- umieszcza tekst wprowaczany za pomocą klawiatucy w zbiorze 
o nazwie TYPFIN.TXT 
Ostatnią operację należy zakończyć przez wprowaczenie kadu 
[CONTROL] Z (Znak EOF - koniec zbioru) a w celu nrzesunięcia 
się do noczątku nowej linii należy dodać znak [CONTROL] I bo 
każdym kończącym linię znaku [KFTURN]. Znak [CONTiGL) I ozna- 
cza w ASCII polecenie przesunięcie do następnej linii 
(Line Feed). 
vpror adzenie PIP bez żadnych paremctrów nowodJuje wyświetle- 
nie znaku 3%, po którym można wprowadzać dalsze żącene polecenie. 


Jest to szczególnie korzystn przy kopiowaniu zbiorów z dysku 
na dysk » przypsdku, gćy żaden z Cysków nie zawiera zbioru 
"1D.CGM. Można wówczes rprowaczić promrzm PIP ze strony 1 dysku 
systemerego, usunąć dysk systemowy i wprosaczić dyski vyRnugfane 
nizy kopiowaniu, 

shy zukonczyłt ocecę erograwu PIP, należy nacisnąć [hrrtnn) 
bezposrednie Do znaku % , 

PIP może by, cżywony do kopiowania zbiorów z jednego dysku 
ns ńrugj także w systemie z jednym napędem dyskowym, zgłaszając 
v ecpowiednim aowencie ządanie wymiany dretu, lysk źródłowy 
i dysk docelowy wuszą być przy tym cznaczoue fnnyledj identyfi- 
tłatoruwi. 


Adalniovtr=werie zbiorumi 


bib, EUAST, RENANE 1 TYPE eę programami Syrtemowymi, 
c znacznie większych możliwocciech, niż takie seme funkcje 
rezydentine (vhudovene). Jak*w wielu innych programach systemo- 
wych, opracowanych przez Digital Rereurch, dodztkowe parametry 
tych funkcji podaje się w nawiasach kwadratowych, lch pełny 
opis zawiera zbiór HELP (na Stronie 3 pakietu dysków systemo- 
wych). Przykładowe polecenis to: 
null Wutuj pocaje rozmiary i atrybuty zbiorów 
PUASE -34.COM [CONFIEM) żndn potwierdzenia przy każdym 

znalezionym zbiorze 


LENAMI żąda kolejno wprowadzenia starej 
1 nowcj nazwy zbioru 

RYNAME de.SAV= X%4.BAK zmienia wszystkie zbiory typu .BAK 
na zbiory typu .SAV 

KYPT KLYS.WP [NopaGF] pomije stronicowenie nyświetlanej na 


ekranie treści zbioru 


0 atrybutach zbiorów SYS (System - zhićr systemowy) 
i RO (Wead/Only - zbiór "tylko do czytenia") u«sponmniano już 
wcześniej. Te i inne atrybuty mogą być nadawane za pomocą 
dyrektywy SFT (ustaw), przy czym mogą być także stosowane znaki 
aóstępcze w nazwach zbiorów. 


247 


Polecenia: 

SFT %.COM [ROJ 

SFT KFYS.CC? [RO] 

SFT A: [RO] 
nadają zbiorom na dysku status "zbiorów tylko do czytania" 
(Read/Only), co zabezpiecza te zbiory przeć przypadkowym 
skasowaniem. 
Polecenia: 

SET %.COM (RW) 

SET  KFEYS.CCP (RW) 

SFT A: [nw] 
przywracają zbiorom na dysku status zbiorów do odczytu i zapisu 
(Read/Write) 
Polecenia: 

SFT %*.C0M [SYS] 

SET  KEŁYS.CCP [SYS] 
przypisują zbiorom atrybut zbiorów systemowych. Zbiory z takim 
atrybutem nie są wykazywane nrzez dyrektywę NIL (lecz tylko 
przez dyrektywę DIES lub IILSYS). Jednakże zbiory takie są 
dostępne do użytku, a co więcej, zbiory SYS przyvorząckhovene 
użytkownikowi nr. O mogą być wykorzystywane »rzez vszystkhich 
innych użytkowników, 
Polecenia 

SET +.SOM (rIn) 

SET KFYS.CCP [DIR] 
odhierają zbiorom atrybut zbiorów systemowych. 

Każdemu dyskowi można przypisać nazwę (etykietę) (NAMF) 
i hasło (PASSWORL). Hasło chroni skorowidz dysku, nie chroni 
natomiast zbiorów, wymienionych w skorowidzu, Poszczególnym 
zbiorom można także przydzielić hasło, 
Polecenia 

SET [NAMT = ROLAND] 

SET [PASSWORD=SALLY] 

SET [PROTECT=ON ] 


oddziaływują na przymowany domyślnie dysk. 
Polecenia: 

SET %*.4 [PASSVORD=SALLY] 

SET %.% [PKOTECT=READ] 


zabezpieczają zbiory na przyjmowanym comyślnie dysku (użyte 
tutaj znaki zastępcze żę . % oznaczają "wszystkie zbiory"). 

Polecenie INITDIK (na Stronie 2 pakietu dysków systemo- 
wych) aktywuje procedurę wpisywania do skorowidzu dysku daty 
zakładania (CREATE), modyfikowania (UPDATE) 1 wyvoływania 
(ACCFS) zbiorów. 
Polecenia: 

INITLIR 

SET [CRTATE=ON) lub SET [ACCESS=ON] i 

SET [UPDATE=ON) oraz 

DIR [FvLL] 


inicjalizują wpisywanie i wyświetlają daty dla przyjmowanego 
domyślnie dysku, Aktywizacje wpisywania dat wymaga ustawienia 
daty za pomocą dyrektywy: 

DATY SET 
przy każdorazowej inicjalizacji systemu CP/M Plus. Po inicja- 
lizacji data i czas jest odmierzana samoczynnie przez umiesz- 
czony w 6128 zegar. Stan zecara można odczytać za pomocą 
dyrektywy: 

DATE 
lub DATI CONTINUOUS 


OSTRZEŻENIE: 

Jeżeli na dysk wpisano nazwę dysku, hasło lub daty to na dysk 
taki NIE WOLNO dopisywać żadnych zbiorów w systemie AMSDOS 
luh CP/M 2.2, gdyż żaden z tych systemów nie potrafi należycie 
obsłużyć takich dysków. 


W normalnym trybie pracy rystem wyszukuje zadane zbiory 
tylko na jednym, określonym w nazwie lub przyjmowanym 'domyślnie 
dysku, Polecenie: 

SETLFF % „A 
(gdzie g oznacza dysk domyślny) powoduje wyszukiwanie zbiorów 
najpierw na przyjmowanym domyślnie dysku a następnie na dysku A: . 
Jeżeli przy tym domyślnym dyskiem jest dysk B:, to zadane zbio- 
ry zostaną znalezione nawet wtedy, gdy występują na dysku A: 


Polecenia: 
SETDEF [PAGE] 
1  SETDEF [NOPAGEJ 
włączają lub wyłączają automatyczne stronicowanie treści, 
wyświetlanej na ekranie (PAGE - stronica). 

Należy pamiętać, że większość udogodnień, wprowadzanych 
przez rozkazy LEVICE, SET i SETDEF, szczególnie gdy dotyczą 
stałych urządzeń, a nie określonych zbiorów lub dysków może 
być ustalana łącznie z datą przy każdej inicjalizacji systemu 
CP/M Plus. Stanowić to może główne zastosowanie odpowiedniego 
zbioru PROFILE .SUB. 

Program SUBMIT umożliwia automatyczne wykonynanie ciągu 
poleceń zapisanych w zbiorze typu .SUB. Polecenia w takim zbio- 
rze zapisywane są zwykłym tekstem. Można w nim zamieścić pole- 
cenia dla wywoływanych programów, jeżeli pierwszy znak linii 
programowej jest znakiem typu <. 

Pojemność dysku, pozostałe wolne miejsce, liczba wolnych 
pozycji skorowidzu, symbole użytkowników, posiadających zbiory 
na dysku i etykieta (nazwa) dysku (jeśli istnieje) mogą być 
wyświetlone za pomocą różnych wariantów dyrektywy SHOW (pokaż): 


SHOW B: 

SROW B: [LABEL] 
SHOW B: [USERS] 
SHOW B: [DIRJ 


SHOW B: [DRIVEJ 


Wszystkie powyższe przykłady dotyczą dysku B: 


Wyłączenie CP/M Plus 
AMSDOS 


Program ten wyłącza CP/M i przekazuje sterowanie wbudowa- 
nemu systemowi AMSTRAD BASIC; w systemie tym operacje dyskowe 
przeprowacza się za pomocą dyrektyw AMSDOS. 
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wyższy poziom programowania 


Strona 2 pakietu dysków systemowych zawiera liczne prozra- 
my przeznaczone dla zaawansowanych programistów. Posługiwanie 
się nimi opisane jest w SOFR971 - A Guide to CP/M Plus i innych 
publikacjach. 


Praca w systemie CP/M 2,2 


M tym punkcie omówiono różnice, jakie występują przy uży- 
waniu systemu CP/M 2.2. 

CP/M 2.2 jest ładowany z pierwszych dwóch ścieżek odpowied- 
niego dysku systemowego. Prorram ładujący system, umieszczony 
w pierwszym sektorze pierwszej ścieżki dysku jest inny, niż 
używeny w przypadku CP/M Plus i należy uważać, aby zastosować 
własciwy dysk. Chociaż możliwe jest używanie dysków o formacie 
niesystomowym, jak format sprzedażny (Vendor format), format 
IBV i format danych (Data format), dyski o takim formacie można 
wykorzystysać jedynie w dodatkowym napędzie B: 

Z wyjątkiem specjalnych programów (jak np. program 
FIL'CoRY), CP/M 2,2 umożliwia zapis na dysk tylko wtedy, gdy 
był on wcześniej "zaksięgowany" w systemie. Ponadto, format 
dysku (System, Data lub IBM) jest rozpoznawany tylko w czasie 
"xsięgnvania", W przypadku głównego napędu dyskowego umieszczo= 
nego w komputerze (napędu dyskorego A:), "księgowanie" dysku 
ma miejsce w czasie powrotu do trybu bezpośredniego przyjmowa- 
nia poleceń systemovych po zakończeniu nracy przejściowego pro- 
gramu użytkovego lub po naciśnięciu przy znaku zachęty A> lub 
N> Klariszy [CONTROL] C. W przypadku dodatkowego napędu dysko- 
wcgo (napędu dyskowego B:) rozpoznawanie 1 "księgowanie" dysku 
ma miejsce przy pierwszym dostępie do dysku B: po "zaksięgowa- 
niu" dysnu A:. 

Próba zapisu na dysk, który nie był wcześniej zaksięgowany, 
powoduje wyświetlenie informacji o błędzie w postaci: 

Bdos Err:on dysk) : R/0O 

(Błąd dostępu do dysku, dysk tylko do czytania) 
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Praca systemu jest kontynuowana po naciśnięciu jakiegokolwiek 
klawisza. Wprowadzenie dysku o innym sposobie formatowania także 
powoduje sygnalizację błędu odczytu lub zapisu. Dła kontynuowa- 
nia pracy systemu należy nacisnąć klawisz C 

W przypadku otrzymania oprogramowania na dysku o formacie 
sprzedażnym (Vendor format), w celu umożliwienia normalnego 
korzystania z zamieszczonych na nim programów należy przepisać 
te programy na dysk systemowy systemu CP/M 2,2 za pomocą FILE- 
COPY lub PIP lub ewentualnie wprowadzić na otrzymany dysk własny 
system CP/M 2,2, zamieniając go na dysk systemowy. Zrealizować 
to można za pomocą dyrektyw BOOTGEN i SYSGEN. 


SYSGEN (bez żadnych dodatkowych parametrów) jest specjalnym 
programem kopiującym ścieżki z systemem CP/M 2.2 z jednego dysku 
na drugi; po wywołaniu program pyta się o dysk źródłowy i dysk 
odbierający kopiowany system. BOOTGFN kopiuje sektor 1 ścieżki O 
z programem ładującym i sektor, zawierający oprogramowanie ze- 
leżne od konfiguracji sprzętowej komputera. 

W rozkazie DIR nie są przyjmowane żadne parametry inne niż 
nazwy zbiorów, Wyprowadzane nazwy zbiorów nie są w jakikolwiek 
sposób uporządkowane i wyświetlane są zgodnie z kolejnością 
zajmowanych przez nie pozycji skorowidzu dyskowego. 

STAT realizuje niektóre podstawowe funkcje poleceń SET 
i SHOW. Rozkazy: 


STAT 
STAT A: 
STAT B: 


wyprowadzają informacje o statusie 1 wolnym miejscu dysku 
Polecenia: 


STAT  %.COM 
STAT DISC.BAS 


wyświetlają skorowidz żądanych zbiorów, uzupełniony dodatkowymi 
informacjami o tych zbiorach. 
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Polecenia: 


STAT %.COM $R/0 

STAT DISC.BAS $R/0 
nadają zbiorom status Read/Only (tylko do czytania) tak, aby 
zbiory te nie mogły być przypadkowo skasowane lub zapisane 
zmienioną treścią. 
Polecenia: 


STAT %.COM. ŚR/W 

STAT DISC.BAS $R/W 
nadają zbiorom status Read/trite (Odczyt/Zapis), usuwając 
wcześniej wprowadzony status Read/Only. 
Polecenia: 


STAT %.COM ÓSYS 

STAT SECRET.BAS $ SYS 
nadają zbiorom status zbiorów systemowych, w wyniku czego zbiory 
te nie są umieszczane w skorowidzu dysku, wyświetlanym za pomocą 
DIR oruz stają się niedostępne dla programów kopiujących zbiory. 
Zbiory te są jednakże nadal dostępne do wszelkich innych celów. 
Polecenia: 


STAT  %.CÓM bDIR 

STAT  STCRET.BAS $DIR 
odbierają zbiorom status zbiorów systemowych, w wyniku czego 
zbiory te są żnów uwidacniane w skorowidzu (DIRectory) dysku, 

Program użytkowy FILECOPY umożliwia kopiowanie zbiorów 
z jednego dysku na drugi przy użyciu jednego napędu dyskowego, 
wymagane jest przy tym zmienianie dysków zgodnie z instrukcjami 
wyświetlanymi na ekranie. W przypadku wprowadzenia nazw zbiorów 
ze znakami zastępczymi FILFCOPY żąda potwierdzenia chęci kopio- 
wania każdego zbioru, odpowiadającego wprowadzonej nazwie. 
Program wyświetla nazwę każdego kopiowanezo zbioru. 
FILICOPY %.COM koniuje wszystkie zbiory typu  .COM 
FILFCOPY ?IP.COM "kopiuje zbiór PIP.COM 

LISCKIT2 snełnia te same funkcje co DISCKIT3, działa 
jednak nieco wolniej przy kopioraniu dysków, ponieważ dysponu- 
je mniejszym ohszarem pamięci. 


Dwa programy użytkowe umożliwiają wymianę zbiorów między 
dyskami a kasetą magnetofonową. Użytecznie mogą być jednakże 
wymieniane tylko zbiory typu ASCII, zawierające jawny tekst; 
wymiana zbiorów o innej zawartości wymaga specjalistycznego 
doświadczenia, 

CLOAD (Cassette LOAD - wprowadzanie z kasety magnetofo- 
nowej) wymaga dwóch parametrów: pierwszym jest nazwa zbioru 
źródłowego (w kasecie), zamknięta w podwójnych cudzysłowach, 
drugim jest nazwa, pod którą zapisany zostanie zbiór na dysku. 
Jeżeli druga nazwa jest pominięta, nezwa zbioru dyskowego zo- 
staje taka sama, jak zbioru w kasecie. Jeżeli pominie się nazwę 
zbioru źródłowego, CLOAD wczyta pierwszy program spotkany na 
taśmie. Jeżeli pierwszym znakiem zapisanej na taśmie nez"y zbio- 
ru jest 1 , pominięte zostaną informacje, normalnie wyświetlane 
podczas czytania kasety. 

Przykładowa dyrektywa typu CLOAD to: 

CLOAD "MY LETTER" MYLETTER.TXT 


CSAVE (Cassette SAVE - przechowywanie w kasecie) może mieć 
trzy parametry. Pierwszym jest nazwa zbioru źródłowego (na dysku), 
drugim nazwa zbioru zapisywanego na taśmie magnetofonowej, 
umieszczona w podwójnych cudzysłowach. Przy pominięciu drugiego 
parametru zbiór zapisywany jest na taśmie pod taką samą nazwą 
jak zbiór dyskowy. Jeżeli pierwszym znakiem nazwy zbioru taśmo- 
wego jest ! , pomija się informacje normalnie wyświetlane pod- 
czas zapisywania na taśmę magnetofonową. Jeśli wprowadzone są 
obydwie nazwy zbiorów, użyty może być też trzeci parametr, 
określający szybkość zapisu na taśmę magnetofonową: O dla 1000 
lub 1 dla 2000 bodów. 

Przykładowe dyrektywy typu CASVTPT to: 

CSAVE OUTPUT.TXT "OUTPUT TEXT" 1 

CSAVE DATAFILE 


SETUP 


Program użytkowy o tej nazwie pozwala na zmianę kodów wpro- 
wadzanych przez klawiaturę, zmianę narametrów napędu dyskowego 
i kanału transmisji szeregowej. Umożliwia także inicjalizowante 
różnych akcji po wstępnym wprowadzeniu CP/M 2.2, Odmiennie, niż 
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oddzielne procedury, wchodzące w skład systemu CP/M, które rea- 
lizują określone działania natychmiast po ich inicjalizacji, 
SETUP modyfikuje konfigurację sektorów na dysku, wprowadzaną 
dopiero podczas kolejnej reinicjalizacji systemu. W ten sposób 
działanie SETUP jest podobne do działania PROFILE „SUB. 

Działanie programu określają informacje wyświetląne na 
ekranie, jeżeli wyświetlane wartości są prawidłowe i nie wyma- 
gają modyfikacji, przejście do następnej operacji uzyskuje 
się odpowiadając Y na pytanie: 

Is this correct (Y/N):_ 

(Czy to w porządku Yes — tak, No — nie) 

Program można zakończyć przez wprowadzenie [coNrRoL] c. 
Jeżeli wyczerpany został repertuar podstawowych zmian syste- 
mowych, stawiane jest pytanie: 

Do you want to update your system disc (Y/N):_ 

(Czy chcesz zmienić swój dysk systemowy Yes - tak, No — nie) 
co daje możliwość zachowania istniejącej konfiguracji sektorów 
przez wciśnięcie klawisza N . Następnie stawiane jest, pytanie: 

Do you want to restart CP/M (Y/N):_ 

(Czy chcesz ponownie zainicjalizować CP/M Yes-tak, No-nie) 
Odpowiedź Y pozwala na reinicjalizację systemu i wypróbowa- 
nie nowej konfiguracji. 

Aby skopiować sektor, zawierający oprogramowanie zależne 
od konficuracji należy użyć BOOTGEN lub wprowadzić SETUP 
z dysku źródłowego, odpowiedzieć Y na KAŻDE pytanie i wprowa- 
dzić dysk na który chce się kopiować bezpośrednio przez odpo- 
wiedzią V na pytanie "Do you want tb update your system disc 
(Y/N): _ 

Znaki o rartości «w kodzie ASCII mniejszej niż dziesiętnie 
32 mogą być zanisywane w postaci tł po której następuje odpo- 
wiedni znak ze zbioru Q „A-Z,CLA,J,) ,- 

Szczególnej uwagi wymagają zwykle następujące funkcje 
nrogramu: 

*% Initial command buffer: 
(hufor wstępnych poleceń) 
Jakiekolwiek wprowadzone tutaj znaki pojawią się w takiej 
samej postaci jak zostały napisane jako polecenie po inicjali- 
zacji systemu. Może to być wykorzystane do automatycznego wywo- 
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łania określonego programu lub funkcji bezpośrednio po inicja-! 
lizacji systemu. Treść polecenia należy zakończyć znakami t M, 
opisującymi działanie klawisza [RETURN). 

Na przykład aby po inicjalizacji systemu samoczynnie wy- 
Świetlić skorowidz dysku, bufor wstępnych poleceń powinien za- 
wierać: 

DIR /M 
a w celu samoczynnego wywołania prozramu Dr. LUGO do bufora 
tego należy wpisać: 

SUBMIT LOGO2 £ M 


Sign-on string: 

(Wstępne informacje) 

Jest to komunikat, wyświetlany u góry ekranu po wprowadzeniu 
systemu CP/M. Zauważ użycie £ JĘM dla uzyskania przejścia 

do początku następnej linii. Początek standardowego komuni- 
katu zawiera kody ustawiające odpowiednie kolory ekranu i tryb 
wyświetlania z 80 znakami w wierszu; początek ten powinien być 
dokładnie przepisany, jeżeli chce się zachować takie same para- 
metry wyświetlania. 


Keyboard translations: 

(Tłumaczenie klawiatury) 

Pozwala przyporządkować poszczezg'lnym klawiszom nowe rartości 
kodu ASCII, działając podobnie jak rozkaj KTYLFF w języku BASIC 
Deklarowanymi parametrami są kody klawiszy i przypisywane im 
wartości kodu ASCII. Numery klawiszy podane są na rysunku za- 
mieszczonym w prawym górnym rogu pokrywy komputera lub w części 
rozdziału zatytułowanego "Trochę użytecznych informacji". 


Keyboard expansions: 
(rozszerzenie klawiatury) 
Efektywnie odpowiaca rozkazowi KEY w języku BASIC. 
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Na koniec ... 


Programy DISCKIT2, SYSGFN, BOOTGEN, FILECOPY, SETUP, 

CSAVE i CLOAD zostały opracorane w firmie AMSTRAD 1 działają 
wyłącznie w komputerach AMSTRAL z systemem CP/M 2.2. Nie mozą 
one mieć zastosowania w innych systemach CP/M, chociaż różni 
wytwórcy mogą dostarczać podobne programy (często o tych samych 
nazwach), dopasowane: do ich sprzętu. 

Strona 4 pakietu dysków systemorych zawiera także poniższe 
programy systemu CP/M 2,2, przeznaczone dla specjalistów; opisy 
tych programów znaleźć można w "SOFT 159 - A Guide to CP/M" 
lub innych opracowaniach: 


ASM Asembler mikroprocesora 8080 

DDT Debugger do uruchamiania programów w języku 8080 

DUMP Program listujący zawartość zbioru w kodzie 
szesnastkowym 

ED Prosty edytor tekstu 

LOAD Zamienia zbiory typu .HEX, tworzone przez ASM 


na zbiory typu .COM 

MOVCPM Generuje system CP/M 2,2, dostosowany do innego 
/mniejszego/ obszaru pamięci 

SUPMIT Umożliwia steroranie systemem rozkazami, umieszczo- 
nymi w zbiorze poleceń 

XSUB Steruje wykonywaniem programów przejściowych 
rozkazami ze zbioru poleceń i 

»owyższe programy przeznaczone są do użytku w systemie 


CP/M 2,2 (ze strony 4) i nie należy ich mylić z programami 
przeznaczonymi dla systemu CP/M Plus (ze Strony i, 2 1 3). 
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